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EDITORIAL 


Chers amis, 


Voici le quatrième JPC préparé depuis un mois, c’est à dire 
que nous travaillons actuellement à la cadence d’un journal 
par semaine Tout est remis sur les rails, ce qui va nous 
permettre de prendre un repos bien mérité. 


Dans ce mois un peu fou, nous avons également brassé les 
quelques 700 Ko de programmes (Basic, Forth, Lex et 
sources) parus dans le Journal depuis la sortie du HP71. Nous 
sommes heureux de vous annoncer la disponibilité de ces 
programmes dans un très proche avenir. 


Nous reparlerons de tout ceci dans un mois... 


Pierre David 
Janick Taillandier 
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PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous Le savez peut être déjà, PPC Paris 
se réunit une fois par mois, en plein coeur de 
Paris. Amenez votre matériel, votre bonne 
volonté et vos idées ! Plus vous en apporterez, 
et plus vous en trouverez chez vos collègues de 
PPC. 


Ces réunions se déroulent de manière très 
libre, aucun ordre du jour, discussion ou autre 
n'étant imposé. Un membre du bureau est toujours 
présent. Aïinsi, si vous désirez remettre votre 
article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous 
procurer des anciens numéros de JPC, ce sera en 
principe toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un 
seul instant, venez nous rejoindre tous Les 
premiers samedis de chaque mois (sauf en péride 
de vacances scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 


75010 Paris 


et en montant au deuxième étage, vous entendrez 


des éclats de rire et des discussions 
passionnées vers La salle 215. Attention, 
toutefois, de venir entre 16 et 19h. 

Pour l'accès en métro, trois possibilités 


s'offrent à vous : 


- Métro Strasbourg Saint Denis : 
Sortie porte St Martin / Bd St Denis, coté pairs 


- Métro République : 
Sortie Bd St Martin, coté pairs 


- Métro Jacques Bonsergent : 
Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en 
avant première Lors de ces réunions... A bon 
entendeur, salut ! 


Les dates des prochaines réunions sont : 
Samedi 6 décembre 1986 
Samedi 17 janvier 1987 


Samedi 7 février 1987 
Samedi 7 mars 1987 
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Samedi 4 avril 1987 
Samedi 16 mai 1987 
Samedi 6 juin 1987 


Pierre DAVID 
(P37, SIG1, CHHU616) 


AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez 
pas sous quelle forme "l'équipe de rédaction!" 
souhaite recevoir votre prose. C'est ici que se 
trouvent Les réponses à vos questions. 


Dans La mesure du possible, vous devez nous 
envoyer vos écrits sur support magnétique 
(carte, cassette ou disquette). Soyez sans 
crainte, nous vous retournerons vos biens après 
copie. 


Si vous ne pouvez pas utiliser de support 
magnétique, ou ne pouvez vous rendre aux 
réunions, alors et alors seulement faites Le sur 


papier. 


Que ce soit sur une feuille de papier, ou sur 
support magnétique, ne  dépassez pas 50 
caractères par ligne. 


Pour nous épargner du travail, insérez dans 
votre texte Les commandes de  formattage 
suivantes (et non Les commandes du formatteur 
HP) : 


"*" centre un titre, par exemple : 
fTITRE 


MA (CHR$(92)) marque Le début et La fin d'un 
paragraphe. Par exemple : 


\Début de paragraphe exprimant Le contenu de 
vos idées qui, même si vous en doutez, 
intéressera certains des membres du Club. 
Surtout si vous vous sentez débutant. Les 
articles pour débutants écrits par des débutants 
sont ceux qui manquent Le plus. Fin de 


paragraphe.\ 


N'oubliez pas de mettre Les accents. Utilisez 
le jeu de caractères Roman8. Les possesseurs de 
HP71 utiliseront Les redéfinitions de touches 
ci-dessous, aïnsi que Le fichier CHARLEX listé 
dans Le coin des Lhex en fin de journal. 


Jean-Jacques Dhénin 


DEF KEY ‘fW!, CHR$(197); té) 
DEF KEY ‘fE', CHR$(193); cé) 
DEF KEY ‘fR', CHR$(201); cè) 
DEF KEY 'fY', CHR$(203); «ù) 
DEF KEY ‘fU', CHR$(195); cü) 
DEF KEY 'fl!, CHR$(209); ci) 
DEF KEY ‘f0', CHR$(194); (6) 
DEF KEY 'f/!, CHR$(92): (0 
DEF KEY ‘fA!, CHR$(192); (à) 
DEF KEY 'fS!, CHR$(200); (à) 
DEF KEY ‘fD', CHR$(205);: (8) 
DEF KEY 'fJ', CHR$(207): «ü) 
DEF KEY ‘fK', CHR$(221); «i) 
DEF KEY ‘f*1, CHR$S(124); «cn 
DEF KEY ‘fC', CHR$(181): (ç) 





Didier JEHL 

Appt 8 

9 rue Utrillo 
62000 ARRAS 

Tel: 21 23 00 77 


Je fais bâtir... PROFITEZ EN !1!! 


Pour HP41 : 


MLDL wrappé (4K Ram + 4K Rom + Ports d'E/S) + 
programmateur d'Eprom + logiciel d'exploitation + 
2 jeux d'Eprom (ASS-3, 1/0) : 2000 F. Lecteur de 
cartes + 200 cartes : 400 F. Lecteur de 
codes-barre : 400 F. Port Extender : 300 F. 
Lecteur d'Eprom 16K + Jeu  d'Eprom  HP-IL 
Development 500 F. Lecteur d'Eprom 4K + jeu 
d'Eprom SM-1C : 300 F. Convertisseur (HP 82166A) : 
1400 F. 2 XMémoires 700 F. XFonctions : 300 F. 
PPC Rom : 500 F. Math : 100 F. Circuitsi 
200 F. 


Un Lot de revues (PPC-US,TN,PPC-T,...) et de 
livres sur 41 sera joint à chaque commande. 
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HEWLETT 
M PACKARD 


HEWLETT-PACKARD FRANCE : S.A. au capital de 3304000000 de Francs régie par les articles 118 À 150 de la loi eur les sociétés 
commerciales - RC S. Corbell-Essonnes : B 70980500. 


SIÈGE SOCIAL Parc d'Activité du Bois Bnard - 2, Avenue du Lac - 91040 EVRY CEDEX - Tél.: 60.77 8383 - Télex : 692315 F. 


Evry, le 3 Novembre 1986 


Hewlett Packard est heureux d'informer les adhérents des clubs 
utilisateurs de la mise en place d'un nouveau service "Support 
Clientèle" effectif depuis le ler Septembre 1986. 


Le numéro de téléphone qui lui a été attribué est le suivant : 
(1) 43 37 63 50 


Votre interlocutrice s'appelle MURIEL ROCHE et ses compétences 
sur la gamme calcul HP lui permettent de répondre à vos questions 
concernant l’utilisation et le fonctionnement usuels de nos 
produits. 


Notez cependant que MURIEL n’a pas pour mission de rédiger vos 
programmes ! 


Nous sommes persuadés que cette nouvelle initiative d'HP en 
faveur de sa clientèle contribuera de façon significative à 
l'essor et la notoriété de votre club. 


Vos bien dévoués, 





Philippe CHAILLOT 
Responsable Programme Calcul 
MARKETING INFORMATIQUE PERSONNELLE 
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LE MODULE HP71-41 TRANSLATOR 


Le HP41 Translator, comme son nom l'indique, 
transforme votre 71 en 41. Ce module de 48 K 
octets contient : 


fichier FTH41ROM (Lex privé de 894 octets) 
fichier TRANS4#1 (Basic de 3467 octets) 
fichier READ41 (Basic de 1075 octets) 
fichier KEYS41 (Key de 282 octets) 
fichier EDTEXT (Basic de 6790 octets) 
fichier EDKEYS (Key de 54 octets) 

fichier EDLEX (Lex de 2557 octets) 

noyau FORTH hard configuré à l'adresse E0000 


, 
—ù —ù à à à à à à 


IL a été développé pour HP par William C. 
WICKES (auteur du Livre MSYNTHETIC PROGRAMMING" 
pour HP41). Le manuel de presque 200 pages 
regroupe 5 chapitres : 


- Comment débuter ( 6 pages) 
- L'environnement HP41 en détail (20 pages) 
- Ecrire et Traduire Les programmes 41 (12 pages) 
- L'éditeur de texte ( 7 pages) 
- L'environnement HP71 FORTH 


Suivent 5 appendices contenant Les 
d'erreur, les mots Basics 
(implémentés par EDLEX et  FTH41ROM), Le 
dictionnaire FORTH et un petit guide pour 
transformer et faire tourner un programme 41 sur 
Le 71. 


messages 
supplémentaires 


DEBUTONS... 


Appuyons d'un doïgt timide sur Les touches 
H-P-4-1-[Endline]. "Tout va bien! répond Le 71 : 
HP41 EMULATOR 1A. Enfin nous y sommes ! Suit 
l'affichage de : SIZE (max nnn)? Vous devez 
spécifier Le nombre de registres de données que 
vous désirez réserver. C'est Le SIZE bien connu 
de “Coconut". Maintenant si vous voulez exécuter : 


1 CENTER] 2 + 3 * , tapez : 
1 2 +3 * [(ENDLINE] 





(23 pages) . 


La différence n'est pas trop grande, ça va ? 
Une bonne solution consiste à taper KEYS41 qui 
redéfinit Le clavier. Les fonctions assignées 
(voir tableau 2) sont alors affichées puis 
exécutées. Cela est très pratique en mode calcul 
puisque l'on est dispensé de l'appui sur 
LENDLINE]. Les fonctions non assignées sont 
obtenues en tapant leur nom suivi de [LENDLINE]. 
L'emploi de XEQ est réservé au lancement d'un 
programme 41. Le mot STACK permet de visualiser 
Les registres de La pile à chaque opération : 


La séquence : 1 234 + 5 STD STACK provoque 
l'affichage de : 1 2 7 5 | 4 qui sont 
respectivement La visualisation des registres T, 
Z,Y,Xet L. 


STD sélectionne Le format standard d'affichage. 
A,X fonctionne de même en affichant le registre 
Alpha et Le LastX. Pour afficher uniquement X il 
faut faire XONLY [CENDLINE]. Enfin La Liste des 
programmes est obtenue par CAT, identique au 
CAT_1 de La 41. 


PLUS EN DETAIL ... 


IL est possible de calculer directement une 
expression algébrique sans avoir à La traduire 
en notation polonaise. Si vous introduisez 
SINC1.234*2/C0S(-31.9)), Le résultat sera 
calculé et rangé dans Le registre X. De La même 
manière Les variables BASIC sont accessibles en 
lecture et en écriture. 

La séquence A B C D1 [ENDLINE] rappelle La 
valeur de A dans Le registre T, de B dans le 
registre Z, de C dans Le registre Y, de D1 dans 
le registre X. Pour stocker le registre X dans 
une variable BASIC il faut faire précéder son 
nom d'un point d'exclamation. Par exemple : 
45.6789 1G place 45.6789 dans X puis dans la 
variable G. 


contenir des 
BASIC ou toute fonction numérique 
reconnue par Le 71, Lex et modules enfichables 
compris. 


En fait une expression peut 
variables 


Les flags utilisables sont Les mêmes que ceux 
de La 41. De O0 à 29 l'utilisateur arme ou 
désarme (question de philosophie), de 30 à 55 il 
ne peut que tester. A l'exception des flags 
BEEP, USER, ON continu, Les numéros de drapeaux 
correspondent. Les valeurs de trappe des 
exceptions mathématiques sont gérées par 
l'émulateur de La même manière que sous BASIC. 


JPC 39 Page 5 


Quand L'HPIL est présent Le 71 recherche si une 
imprimante est connectée. Si c'est Le cas elle 
sera utilisée par Les fonctions VIEW, AVIEW... 
et Les flags 21 et 55 seront armés. Si La 
connection de l'imprimante a lieu après l'entrée 
dans l'environnement 41 il suffit de taper 
PRINTER pour La valider. 


La fonction purge4i (en minuscules) permet de 
réinitialiser l'environnement 41. Tous Les 
registres, Les programmes et Les mots Forth 
créés en mode 41 sont alors perdus et Le 71 se 
place en FORTH. Quand on est en mode 41 on peut 
en sortir de 2 manières : 


FORTH [ENDLINE] -> Le 71 est en mode Forth. 
BASIC [CENDLINE] -> " sauve, 1 -Basic. 


Comme tout l'environnement 41 est stocké dans 
un fichier Forth appelé  FTH41RAM, il est 
possible de Le sauver, Le renommer etc. Rien ne 
vous empêche d'avoir simultanément en mémoire 
plusieurs de ces fichiers et de Les activer 
suivant Les besoins. Seul Le fichier FTH4&1RAM 
sera opérationnel, et il faut noter qu'il est 
incompatible avec Le Forth du Forth/Assembleur. 


ECRITURE ET TRADUCTION DES PROGRAMMES HP41 


** Transfert 41 -> 71 ** 


IL existe dans Le module 2 programmes BASIC qui 
lui sont propres. Le premier, READ4#1, permet Le 
transfert d'un programme de 41 à 71. Pour ce 
faire Titan se travestit en imprimante et stocke 
chaque ligne reçue dans un fichier texte. Sur La 
41 il suffit d'exécuter La séquence suivante : 


MANIO MANUal Input/Output 
CF 15 

CF 16 Format d'impression 
x SELECT x : adresse du 71 


PRP ‘Filename! envoie Le programme 


sous forme ASCII. 


Toutes ces instructions font partie de L'HPIL 
de La 41 et ne nécessitent l'ajout d'aucun module. 
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** Introduction manuelle ** 


Si vous désirez introduire directement un 
programme 41 dans Le 71, il vous faudra utiliser 
l'éditeur de textes présent dans ce module. Il 
est identique à celui du Forth/Assembleur et 
constitue un sous ensemble du module Text 
Editor. Vous rentrez Le programme tel qu'il 
serait apparu sur un [Listing 41 en omettant 
cependant les numéros de Ligne. 


Maintenant que votre fichier source est en 
mémoire sous forme de fichier texte, il va 
devoir subir une  précompilation qui lui 
permettra d'être ingurgité par  l'émulateur. 
C'est ici qu'intervient:" le deuxième programme 
BASIC nommé TRANS41. Il va examiner le fichier 
source, Le modifier éventuellement, rajouter Les 
indications nécéssaires à La compilation. Le 
fichier obtenu est toujours de type Text et donc 
manipulable à volonté dans l'environnement BASIC 
(sauvegarde, édition...). De cette manière La 
phase de précompilation peut être évitée à 
chaque chargement du même programme. Fin de la 
deuxième étape et... début de La troisième ! 


Voici enfin venu Le moment de charger le 
programme dans l'émulateur. Sous BASIC il suffit 
de Lancer TRANS41 et de se laisser guider par 
les questions. Dans l'environnement 41 vous 
taperez LOAD et lancerez Le programme par RUN ou 
XEQ. Comptez un temps de chargement d'environ 
une seconde par ligne. 


MODIFICATION D'UN PROGRAMME 


Pour modifier un programme il faut rappeler en 
mémoire Le fichier “source! (c'est à dire de 
type Texte), lancer l'éditeur de texte pour 


effectuer vos corrections et recommencer La 
compilation depuis Le début. Si vous aviez 
effectué une sauvegarde du fichier 
intermédiaire, n'oubliez pas de sauver la 


nouvelle. Enfin La fonction CLP effacera TOUS 
Les programmes postérieurs - chronologiquement - 
à celui effacé. 


CONCLUSION 


Pour juger ce module il faut se mettre à La 
place de l'utilisateur auquel HP Le destine. 
Celui-ci a développé des applications sur HP41, 
et voit dans Le 71 Le moyen de récupérer sa 
bibliothèque tout en augmentant La puissance des 
futurs programmes. Cet utilisateur peut être une 
société. A l'opposé l'acheteur d'un 71 se verra 
répondre que Les programmes de La  User's 
Library, fort nombreux, tournent sur sa machine. 


Comme de bien entendu, des nuages viennent 
assombrir cette description trop idyllique. 


D'abord, seuls Les programmes développés sur 
une 41 nue  fonctionneront. L'émulateur ne 
supporte, de manière générale, aucun module 
d'application, HPIL excepté. IL ne gère 
notamment pas La mémoire étendue. La seule 
instruction rescapée du module Temps est TIME. 
Voir Le tableau 1 à ce sujet. 


Ensuite le développement de programmes 41 dans 
l'environnement 71 est très Lourd. Le débugage 
malaisé (pas de fonction SST). IL faudra 
vraiment se contenter de recopier Les programmes. 


Quelques détails sont  irritants - en usage 
-quotidien. L'emploi du fichier KEYSé1 détruit 
‘votre propre fichier Keys sans Le sauvegarder 
comme Le fait l'éditeur de texte. Bien sûr vous 
pouvez redéfinir un "mot" KEYS41 mais il faudra 
recharger Le noyau FORTH à chaque 
réinitialisation. La fonction CLP efface tous 
Les programmes enregistrés après Le programme 
spécifié. 


Par contre Un avantage de ce module est la 
possibilité de documenter Les programmes. Cela 
facilitera La maintenance logicielle, notamment 
de La pile opérationnelle. Puisque vous êtes 
dans un environnement Forth Les commentaires 
figureront entre parenthèses. Pour Les mêmes 
raisons il est possible d'étendre Le vocabulaire 
de base et, peut-être, de compenser ainsi Les 
défauts précités. Enfin vous bénéficiez de 
l'espace mémoire du 71, de l'accès à ses 
fonctions de calcul, de sa vitesse de traitement. 


Voici Les éléments que l'on doit avoir en tête 
pour décider ou non de son achat. 
Mais ce n'est pas une 41 ! 


Philippe GUEZ (PPC 1) 
et Jean-Pierre BONDU (PPC 33) 


NDLR : Ce n'est pas fourni avec, mais ça existe ! 
Le "HP71 Translator Pac Programmers Tool Box", 
vendu séparément par La Librairie de Corvallis 
sous La référence V7540-71 pour 60 dollars. 
L'auteur est également Bill Wickes. 


Tableau 1 : Le vocabulaire du Translator. 


Les fonctions inclues dans Le HP41 Translator 
comprennent La totalité des fonctions 
programmables de La HP41C/CV. Ont été rajoutées 
certaines fonctions propres à La 41CX et au 
module HPIL. La Liste suivante vous permettra de 
constater quelles ont été Les fonctions omises. 


| FONCTIONS | 
| CONNUES | 


| System/Format Functions : 
| Toutes sauf .... | CLK12/24, CLKT, CLKTD, | 
| | DMY, MDY, PASN. | 


| Clearing Functions : | 
| CLD, CLKEYS, CLP, | CLALMA, CLALMX, CLFEL, | 
| CLRG, CLRGX, CLsgma| CLRALMS, DELCHR, DEL, | 
| CLX, CLST. | PCLPS, PURFL, DELREC. | 


| Stack/Data Register Functions : | 
| Toutes inclues. IE 


| Numeric Functions : | 
| Toutes inclues. | 


| Extended Memory Functions : | 
| Aucune. En effet, La notion de mémoire | 
| étendue est déja supportée par La structurel 
| fichier du 71 (dixit HP |). | 
(PRéeamagens re enr ie 
| Time Functions : | | 
| TIME | Toutes Les autres | | 
fosse Reine 
| Alpha Functions : | 
| ALENG, ANUM, AOFF, | ADATE, ATIME/24, | 
| AON, ARCL, AROT, | ARCLREC, GETREC. | 
| ASHF, ASTO, ATOX, | | 
| AVIEW, CLA, POSA, | | 
| PROMPT, XTOA. | | 
ÉPRRS 
| Interactive Functions : | 
| ADV,BEEP, PSE,TONE.] GETKEY, GETKEYX. | 
PER para en nee eee 
| Printer Control : | | 
| Flags 21 & 55 | Flags 12, 13, 15 & 16 | 
| actifs. | sont sans effet. 
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Tableau 2 : Les assignations du Translator. 


Fichier KEYS41 : 

DEF KEY !/1,1 /1 

DEF KEY “#0! *! 

DEF KEY !-1,1 -1 

DEF KEY '+!,! +1! 

DEF KEY !,1,1 -1: 

DEF KEY '#50!,1 RCL !: 
DEF KEY '#51!,! STO !; 
DEF KEY 'fW!,! XEQ "fit: (passage en insertion) 
DEF KEY 'fR',! GTO fi: (passage en insertion) 
DEF KEY 'fY!,! SF': 
DEF KEY ‘fU',! CF'; 
DEF KEY 'f0!,! S+1; 
DEF KEY ‘fP!,! S-!; 
DEF KEY 'f71,! CLS': 
DEF KEY 'f8',! MEAN': 
DEF KEY ‘f91,! SDEV'; 
DEF KEY 'f/!,! SORT'; 
DEF KEY 'fS!,! XEQ': 
DEF KEY ‘fD',! RTN'; 
DEF KEY ‘fF',! GTO !; 
DEF KEY ‘fH!,1 FS? !: 
DEF KEY ‘fJ!,! FC? !: 
DEF KEY ‘fL',' BEEP ! 
DEF KEY 'f=!,! X<>y! 
DEF KEY 'f4!,! SIN! 
DEF KEY 'f5!,' COS! 
DEF KEY ‘f6!,! TAN! 
DEF KEY ‘'f*1,1 10"X! 
DEF KEY 'fX!,! CAT! 
DEF KEY ‘fM',1 1/X' 
DEF KEY ‘f(!,! E"X! 
DEF KEY ‘f)',! LN:! 
DEF KEY '#941,1 AON! 
DEF KEY 'f1!,! ASIN! 
DEF KEY 'f2!,! ACOS' 
DEF KEY 'f3!,' ATAN' 
DEF KEY 'f-!,!' LOG! 
DEF KEY 'f.',! VIEW!';: 
DEF KEY ‘f+1,1 LASTX! 
DEF KEY ‘#162!,! RUP! 
DEF KEY '#163!,! RDN' 
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HP41 


C. Jegouzo Electronique de base 10 
- Polarisation par pont de base 10 
- Transistor monté en émetteur commun 10 
- Transistor monté en base commune 13 
- Transistor monté en collecteur commun 14 
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ELECTRONIQUE DE BASE 


Les quatre programmes que je vous propose, 
devraient vous permettre de vérifier vos calculs 
en matière d'électronique de base. J'ai essayé 
de garder les mêmes spécifications dans Les 
quatre programmes afin de faciliter leur emploi. 


P-PB : POLARISATION PAR PONT DE BASE 


Registres Programme : 223 octets 
Registres Données : 8 


La polarisation par pont diviseur de tension 
fait partie des polarisations classiques. Ce 
montage consomme de l'énergie, même au repos à 
cause du pont. Le courant Ib est fixé 
définitivement par Les valeurs de R1 et R2. 


| | | 
| < | 
> > Rec | 
R1 < < == 
> > se fa, 
< Ie | Vec 
| lv | 
| 1/ | 
| Ib-> |\ | 
| v | 
> | 
R2 < > | 
> < Re | 
< > | 
< | 
| | | 


Connaïssant Ic0, VCEO, VBEO, BETA, et Vcc, les 
rapports X=Rc/Re et Y=IP/Ib, Le programme donne 
Ib, IP, R1, R2, RB=R1/R2 . 


Exemple: 

“IcO ?" E-3 R/S C1mA) 
NVCEO ?" 5 R/S (5 volts) 
NVBEO ?" 0,6 R/S (0.6 volts) 
MBETA 21 100 R/S (BETA=H21) 
"Vcc!! 10 R/S (Tension d'alimentation) 
MRE 7?" R/S (mettre O0 si RE n'existe pas) 
MRC=X.RE X2 4 R/S 

"RE=1000" R/S CRE 1 kohms) 
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MRC=4000" R/S CRC & kohms) 
"Ib=10 yuA'" R/S (10 micro-ampères) 
MIP=Y.Ib Y?" 10 R/S 

"IP=100 A" R/S (courant dans R2 : 100 JA) 
"R2=16100" R/S (16,1 kohms) 
"R1=76272" R/S (76.2 kohms) 
MRB=132941 CR1//R2=13,2 kohms) 


Le programme : 


O1*LBL "p-pB'" 

FIX O “IcO ?" PROMPT STO 00 ‘"VCEO ?  PROMPT 
STO 01 "VBEO ?" PROMPT STO 02 "BETA 7?!  PROMPT 
STO 03 "Vcc 7? PROMPT STO 04 MRE 21 PROMPT 
X=0? GTO 00 RCL 04 RCL 01 - RCL 00 / GTO 01 


28*LBL 00 

MRC=X.RE X? PROMPT 1 RCLY + RCL 00 * 1/X 
RCL 04 RCL 01 - * STO 05 M"RE=" ARCL X 
PROMPT  * 


46*LBL 01 

MRC="  ARCL X PROMPT RCL 00 RCL 03 / STO 06 
E6 * "Ib=" ARCL X "LA" PROMPT "IP=Y.Ib Y?" 
PROMPT RCL 06 RCL Y * E6 %* "IP=" ARCL X 
"H PA" PROMPT E6 / 1/X RCL 03 1 + RCL 05 
* RCL 06 * RCL O2 + * STO 07 M"R2=N ARCL X 
PROMPT RCL Y * RCL 06 * CHS RCL 04 + X<>Y 
1 + RCL O6 * / M"R1=" ARCL X PROMPT RCL 07 
RCL Y * X<>Y RCL 07 + / "RB=" ARCL X 


TR-Ec TRANSISTOR MONTE EN EMETTEUR COMMUN 


Registres Programme : 895 octets 


Registres données : 22 
Le programme se décompose en 4 grandes options: 
[A] : Initialisation 


[8], [C], [D], [E] : Calcul des amplifications 
en tension (Av) et en courant (Aï), ainsi que 
des impédances d'entrée (Ze) et de sortie (ZS). 


[F] : Détermination des équations des droites 
d'attaque et de charge statiques et dynamiques. 
[G] : Calcul des coefficients de stabilité 
thermique. 


Exemple: 


[A] : 
MRITR2 2" 76,4E3 ENTER” 


16E3 R/S 





(Si R/S La machine demande RB) 


MRC'RE"RU 7?" 4E3 ENTER” 

E3 ENTER* 

4E3 R/S (en ohms) 
"411 2" 1000 R/S 
"H21 2" 100 R/S 
"H22 2" E-5 R/S (H12 toujours pris = 0) 
OK" 


[a] : Permet de changer La valeur de H22 
422 2" 0 R/S 
"OK!" 


[B], [C], [D], [El : Les 4 options prennent en 
compte La valeur de H22, ainsi que La valeur de 
La résistance d'émetteur de couplage. 


3 cas sont possibles: 


-  Condensateur aux bornes de RE : RE de 
couplage = 0 = RE1. 

- Condensateur partiellement en parallèle avec 
RE : RE de couplage = RE1. 

- Pas de condensateur : RE = RE1 


H22#0 H22=0 Couplage 
[B] : 
MRE COUPL 2!  R/S R/S 222,0 
H22=0 (forcée) 
MAV=N -196,08  -200,00 -8,54 
[CI : 
MAI=" 45,57 46,49 18,05 
[D] : 
“Ze=" 929,72 929,72 8454,24 (ohms) 
[EJ : 
nZS=" 3846,15  4000,00  4000,00 (ohms) 
CF] : 
HRITR2 ?" 76,4E3 ENTER* 
| 16E3 R/S 
(demande si valeurs non entrées dans option A) 
NBETA 71 100 R/S 
"IcO ?" E-3 R/S C1mA) 
MVBEO"VCEO 7?" 0,6 ENTER* 
5 R/S 
MVcc 71 10 R/S 
"Vbb= 1,73 R/S 
(potentiel de La base) 
MO VBE= 1,73" R/S 
(droite d'attaque statique) 
"MO Ib= 0,00 LA" R/S (couple M0,M1) 
"M1 VBE= 0,00" R/S 
"M1 Ib= 15,29 LA" R/S 
"D CHAR STATQ'" R/S 
(droïîte de charge statique) 
"M2 VCE= 10,00" R/S (couple M2,M3) 
"M2 Ic= 0,00 MA" R/S (milliampères) 
"M3 VCE= 0,00" R/S (volts) 
"M3 Ic= 2,00 MA" R/S (milliampères) 








"PO VCEO Ic0" 
(rappelle coordonnées du point de fonctionnement) 
"D CHARG DYN' R/S 
(droite de charge dynamique) 
uM& VCE= 7,00" R/S (couple M4,M5) 
"M4 Ic= 0,00 MA" R/S 
"MS VCE= 0,00" R/S (volts) 
"MS Ic= 3,50 MA" R/S (milliampères) 


Camplitudes maxi >0 et <0 des grandeurs de 
sortie. Elles sont dissymétriques) 

MEXCURS MAXI! 

MVCE+2,00 -5,00" 

“Ic +2,50 -1,00" 

(Pour obtenir des excursions symétriques, il faut 
placer Le point de repos au milieu de La droite de 
charge dynamique. On détermine alors Les nouvelles 
coordonnées M6 du point de repos et La nouvelle 
valeur de Ib1. Pour celaÿ”on fait varier R2 d'ou 
R'2) 


MEXCURS SYM'! R/S 
"M6 VCE= 2,86 R/S 
"M6 Ic= 1,43 MA‘ R/S 
“Ib1= 14,29 uA'" R/S 
"GRAPH VBEA 7?" 0,65 R/S 
"IP1= 89,40 uA" R/S 


MR'2= 23250,78" 


[G] : 

"S1=dic/dicb0 R/S (rappel de formule) 

us1=12,58" R/S 

"S2=dIc/dVBE" R/S 

"S2=-8,75E-4" R/S 

"S3=dIc/dBETA" R/S 

n$3=1,26E-6" 
| | | 
| > | 
> < Re | 
< R1 > | 
> < | 
< AE | 
| 1/ c2 | | 

RE ST | | | 

| ct | IN | Re 

| | y | ee 

| | (Eee | Vec] 

” | | | | | 

< Rg | > | | 

> | < RE1 | | | 

< > > | > | 

| < R2 < | < Ru | 

| > Et | de > | 

| < > ---CE < | 

| | <RE2 | | | 

| | > | | 

- eg | : | 
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Le programme : 


O1*LBL "TR-Ec! 
SIZE? 22 X>Y? PSIZE 


06*LBL A 
O X<>F SF 02 FIX 2 CF 22 MR1"R2 21  PROMPT 
FS? 22 GTO 06 "RB ?" PROMPT STO 03 GTO 07 


20*LBL 06 
CF 02 STO 02 X<>Y STO 01 XEQ 20 STO 03 


27*LBL 07 
MRC*RE"RU ?"  PROMPT STO 06 RDN STO 05 RDN 
STO 04 RCL Z XEQ 20 STO 07 SF 03 


39*LBL J 
CF 22 "H11 21  PROMPT FC? 22 GTO F STO 08 
MH21 2?"  PROMPT STO 09 


49*LBL a 
CF 00 #"H22 7 PROMPT STO 10 X=0? SF 00 CF 03 
“OK'! PROMPT GTO A 


60*LBL B 

FS? 03 GTO J CF 01 CF 22 "RE COUPL ?"  PROMPT 
FS? 22 GTO 00 RCL 10 SF 25 1/X RCL 07 FC? 00 
XEQ 20 RCL 08 / 


77*LBL 01 
RCL 09 * CHS M“AV=" ARCL X PROMPT GTO B 


85*LBL 00 
STO 11 SF 01 "H22=0" AVIEW PSE RCL 09 1 + 
* RCL 08 + 1/X RCL 07 * GTO 01 


101*LBL C 

FS? 01 GTO 02 RCL 03 RCL 08 + 1/X FS? 00 
GTO 03 RCL 10 1/X RCL 07 RCLY + / * 
GTO 03 


118*LBL 02 
RCL 09 7 + RCL 11 * RCL 08 + RCL 03 + 1/X 


129*LBL 03 
RCL 07 RCL 06 / RCL 09 * RCL 03 * * "aAI=" 
ARCL X PROMPT GTO C 


142*LBL D 


RCL 03 RCL 08 FC? 01 GTO 04 RCL 09 1 + 
RCL 11 * + 
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153*LBL 04 
XEQ 20 ‘Ze="" ARCL X PROMPT GTO D 


159*LBL 05 
RCL 10 SF 25 1/X RCL 04 FS? 00 GTO 05 FS? 01 
GTO 05 XEQ 20 


169*LBL 05 
"ZS=" ARCL X PROMPT GTO E 


174*LBL F 

FS? 02 GTO A "BETA ?" PROMPT STO 00 "“IcO ?" 
PROMPT STO 12 "VBEO"VCEO ? PROMPT STO 14 RDN 
STO 13 "Vcc ?" PROMPT STO 15 RCL 02 * LASTX 
RCL 01 + / STO 16 "Vbb=" FIX 2 ARCL X 

PROMPT "D ATTQ STATQ" CF 04 O RCL 16 0 

XEQ 21 RCL 16 RCL 00 RCL 05 * RCL 03 + / 0 
1 XEQ 21 "D CHAR STATQ" PROMPT SF 04 0 

RCL 15 2 XEQ 21 RCL 15 RCL 04 RCL 05 + / 0 
3 XEQ 21 "PO VCEO IcO" PROMPT ‘D CHARG DYN'" 
PROMPT RCL 07 RCL 12 %* STO 17 RCL 14 + 0 
X<>Y 4 XEQ 21 RCL 14 RCL 07 / STO 18 RCL 12 
+ O0 5 XEQ 21 M“EXCURS MAXI" PROMPT  E3 

ST* 18 ST* 12 M"VCE+" ARCL 17 "H- -"  ARCL 14 
PROMPT "IC +" ARCL 18 "}- -"  ARCL 12 ST/ 12 
PROMPT  MEYCURS SYM'!! PROMPT SF 04 RCL 15 

RCL 07 * LASTX RCL 04 + RCL 05 + / RCL X 
RCL 07 / STO 19 X<>Y 6 XEQ 21 E3 * RCL 00 
/ "Ib1=" ARCL X STO 20 "}-jA'! PROMPT 

MGRAPH VBET ?  PROMPT RCL 05 RCL 19 * + 

RCL X CHS RCL 15 + RCL 01 / E6 * RCL 20 

+ MIP1=N  ARCL X MÉHHAN PROMPT / E6 * 
MR'2=U  ARCL X PROMPT GTO F 


327*L8L 20 
RCL Y RCL Y + RON * R° / RIN 


336*LBL 21 

MM FIX O ARCL X FC? 04 "+ VBE=" FS? 04 

MH VCE=" FIX 2 ARCL Y PROMPT "M" FIX 0 

ARCL X FC? 04 Of Ib=" FS? 04 M Ic=" RCL Z 
FS? 04 -E3 FC? 04 #E6 * FIX 2 ARCL X FC? 04 
MMA FS? 04 U}-MAN PROMPT RTN 


368*LBL G 

"S1=dic/dIcb0" PROMPT RCL 05 RCL 00 1 + 

RCL Y RCL Y * RCL 03 + LASTX R° + RCLZ * 
X<>Y / STO 21 "S1=" ARCL X PROMPT RCL 00 
"S2=dIc/dVbe'! PROMPT RCL 05 RCL Y 1 + * 

RCL 03 + / CHS "S2=" ARCL X PROMPT 
"S3=dIc/dBETA" PROMPT RCL 00 RCL 05 RCL Y * 
RCL 03 + RCLY * X<>Y X”"2 RCL 05 RCL 03 + 
1  1/X RCL 12 * RCL 16 + RCL 13 - / 1/X 
RCL 21 * "S3=" ARCL X PROMPT END 





TR-Bc: TRANSISTOR MONTE EN BASE COMMUNE 


Registres Programme : 448 octets 


Registres Données : 10 


On considère que Le transistor est utilisé en 
basse fréquence. Les condensateurs sont des 
court-circuits. On transforme Le générateur de 
Norton en générateur de Thévenin dépendant de 
VBE et e=u VBE. (u=H21/H11.H22) 


nn > +E 
: | | 
| > 
= | < Re 
> > 
< R1 < |/ 
> | C2 Ru  |/ 
< bee AA 17 
| | 1/ 
| | 
| l/ 
re Reel 
| | I\ 
| | v 
| | | ci 
| | h-- frs 
| | | | 
=. > | > 
>> < R2 > < Rg 
[CB > < RE > 
| < > < 
| < 
| | | - eg 
| | | | 


Le programme donne l'amplification en tension 
(AV), en courant (Aï), Les impédances d'entrée 
(Ze) et de sortie (ZS). 


Les options [b], [cl], [d] et [e] rappellent Les 
formules (utiliser Le pas à pas SST). 


Exemple : 

[A] : 

MRC?" 3335 R/S (ohms) 
RE?" 667 R/S 

RG?" 50 R/S 

MRU?" 3335 R/S 

“H1124 800 R/S 

"4212" 80 R/S 


“H227" 
“u=2000" 
“us&.H21/H11" 


5E-5 R/S 
(&=1/H22) 
[a] : pour changer H22 


[B] : "AV= 153,991 
Cb] : formule par SST Av=(u+1) RL/&+RL RL=RC//RU 


[C1 : AI= -0,49 
[c] : Ai=(-RC/RC=RU) 
C1/1+CHITHRE). (&+RL)/RECp+1).H11 


[D] : Ze= 10,52 (ohms) 

Ed] : 1/Ze= 1/RE + (p+1/8+RL) + 1/H11 

[E] : ZS= 3235,06 (ohms) 5 
Ce] : 


1/2S= 1/RC + (1/C&+(p+1)R0)  RO=RG//RE//H11. 


Le programme : 


O1*LBL "TR-Bc' 


O2*LBL A 

O X<>F MRC! PROMPT STO 01 "RC!  PROMPT 

STO 02 "RG PROMPT STO 03 "RU! PROMPT STO 04 
MH11%  PROMPT STO 05 ‘“#H211 PROMPT STO 07 

RCL 04 RCL 01 XEQ 20 STO 09 


27*LBL a 

SF 00 #"H22?" PROMPT STO 08 X=0? GTO 06 

RCL 05 RCL 08 * 1/X RCL 07 %* "p=" ARCL X 
AVIEW PSE 1 + STO 06 "L=&H21/H11" AVIEW PSE 
PSE CF 00 


52*LBL 06 
"OK" PROMPT GTO A 


56*LBL 20 
STO Z RCL Y + 1/X RDN * R° * RIN 


66*LBL B 
FS? 00 GTO 02 RCL 06 RCL 08 1/X RCL 09 + 
LASTX / 1/X * 


78*LBL 03 
MAV=" FIX 2 ARCL X PROMPT GTO B 


84*LBL 02 
RCL 07 RCL 09 * RCL 05 / GTO 03 


91*LBL b 
MAV=U+1 RL/"  AVIEW M&+RL!  PROMPT 


96*LBL C 
FS? 00 GTO 04 RCL 06 RCL 05 * RCL 02 * 1/X 
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RCL 08 1/X RCL 09 + * RCL 02 RCL 05 + * 1 
+ 1/X CHS RCL 01 RCL 04 + / RCL 01 * 


124*LBL 05 
MAI="  ARCL X PROMPT GTO C 


129*LBL 04 
RCL 05 RCL 02 + LASTX / RCL 07 / 1 + -2 
* 1/X GTO 05 


143*LBL c 
M-RC/RC+RU 1/"  AVIEW "1+ HI1+RE*&+"! AVIEW 
MRL/RE.u+1.H11%  PROMPT GTO c 


151*LBL D 
FS? 00 GTO 07 RCL 08 1/X RCL 09 + 1/X 
RCL 06 * RCL 05 1/X + RCL 02 1/X + 1/X 


168*LBL 08 
MZe="" FIX 2 ARCL X PROMPT 


173*LBL 07 
RCL 07 1 + RCL 05 / RCL 02 1/X + 1/X 
GTO 08 


184*LBL d 
M1/2Ze=1/RE +"  AVIEW #1/H11+ p#1/  AVIEW 1&+RL' 
PROMPT 


191*LBL E 

FS? 00 GTO 09 RCL 03 RCL 02 XEQ 20 RCL 05 
XEQ 20 RCL 06 * RCL 08 1/X + 1/X RCL 01 
1/X +  1/X 


209*LBL 10 
"ZS="  ARCL X PROMPT 


213*LBL 09 
RCL 01 GTO 10 


216*LBL e 
n1/2ZS=1/RC 1 AVIEW "/&+ 1#1.R0"  AVIEW 
MRO=RG/RE/H11"  PROMPT END 


TR-Cc: TRANSISTOR MONTE EN COLLECTEUR COMMUN 


Registres Programme : 201 octets 
Registres Données : 7 


Comme pour Les autres montages, Le programme 
calcule Av, Ai, Ze, et Zs. On remarquera que 
l'étage collecteur commun n'amplifie pas en 
tension, mais amplifie en courant et possède une 
résistance d'entrée assez forte et une faible 
impédance de sortie. Il peut être utilisé comme 
étage adaptateur d'impédances. 
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Exemple : 
[A] : 
MRITR2A ?" R/S 
"RB ?" 23700 R/S 
(demande si R1 et R2 non entrés) 

MRUTRE 7?" 5SE3 ENTER" 

5E3 R/S (ohms) 
"RG ?" 50 R/S (ohms) 
“H11"H21 2" 1200 ENTER* 

100 R/S 
“oK'"! 
[B] : "AV= 0,995" R/S 
[C] : "AI= 4,718" R/S 
[D] : "Ze= 21675,16" R/S (ohms) 
[E] : "ZS= 12,34" (ohms) 


Le programme : 


O1*LBL "TR-Cc!! 


O2*LBL A 

FIX 2 O X<>F CF 22 M"R1*R2 7? PROMPT FS? 22 
SF 00 #“"RB ?" FC? 00 PROMPT FS?C 00 XEQ 20 
STO 00 "RUŸRE 2?"  PROMPT STO 01 XEQ 20 STO 02 
MRG ?  PROMPT STO 03 "H11"H21 7?"  PROMPT 

STO 05 RDN STO O4 ‘OK! PROMPT GTO A 


33*LBL B 
RCL 04 RCL 05 1 + RCL 02 * STO 06 / 1 + 
1/X MAV=N FIX 3 ARCL X PROMPT 


49*LBL C 
RCL 00 RCL 06 LAST X + RCL 04 + / RCL 05 1 
+ * 2 / MAI=" FIX 3 ARCL X PROMPT 


67*LBL D 
RCL 06 RCL 04 + RCL 00 XEQ 20 "Ze" FIX 2 
ARCL X PROMPT 


77*LBL E 

RCL 00 RCL 03 XEQ 20 RCL 04 + 1/X RCL 05 1 
+ * RCL 01 1/X + 1/X "ZS=" FIX 2 ARCL X 
PROMPT GTO E 


97*LBL 20 
STO Z RCL Y + 1/X RDN * R° * RTN END 


C. JEGOUZO 





ASSEMBLEUR 
PPC-Paris 

P. David 

J.J. Dhénin 
BASIC 

J.P. Bondu 

G. Toublanc 

X. Bille 

J.P. Bondu 

G. Toublanc 


LE COIN DES LHEX 


Récapitulation des tokens 
Les débuts 
Traitement de tableaux 


Encore un scan... dale 
Intégrales et complexes 
Survol des fichiers de données 


Programme "SCANALEX" 
Programme "INTEG" 


32 
34 
36 
37 


38 
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RECAPITULATION DES TOKENS 


Comme chaque année maintenant, nous publions La 
liste complète des tokens attribués dans notre 


Lex (ID #E1). 


Certains 


décidé de 


mots-clefs, 
beaucoup d'intérêt ou étant dépassés, il 
Les supprimer, 


ne présentant plus 
a été 


afin de laisser La 


place aux nouveaux venus. Ce sont : 


FKEY 

CMD16 (moins puissant que STACK) 
XERR 

PRIM (remplacé par PRIM de G. Toublanc) 
CURSDOWN F 
CURSKEYS 

INDATES$ (voir JPC No 36 page 4) 
KBD (écrasé sans. précaution par DATE+) 


Quant à FRAC$ (XFN 225088), il n'est pas encore 


paru. 
nos colonnes... 


DESAL 

XFN 225001 ADBUF$ 
XFN 225002 ASC$ 
XFN 225003 ATH$ 
XFN 225004 HTAS$ 
XFN 225005 RED$ 


REPLEX 
XFN 225006 REPLACES 


FILELEX 
XFN 225007 FILE? 


ATTNLEX 
XWORD 225008 ATTN 


DRIVELEX 
XWORD 225009 DISABLE 
XWORD 225010 ENABLE 


FKEYLEX 
* XWORD 225011 FKEY 


DESLEX 

XFN 225012 CONTRAST 
XWORD 225013 INVERSE 
XFN 225014 INVS 
XFN 225015 PAINT 
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Vous Le verrez prochainement surgir dans 


$=ADBUFS($) 
$=ASC$S($) 
$=ATH$($) 
$=HTA($) 
$=RED($) 


S=REPLACES($,$,$ [,$1) 


n=FILE?($) 


ATTN ON|OFF 


DISABLE $ 
ENABLE $ 


FKEY $ 


n=CONTRAST() 

INVERSE 

$=INVS($) 
n=PAINT(N,n,n) . + 


ENDUPLEX 

XFN 225016 ENDUP$ 
XWORD 225017 ENDUP 
XFN 225018 STARTUP$ 
XWORD 225019 EXECUTE 


CMDI6LEX 
* XWORD 225019 CMD16 


COMBARR 
XFN 225020 ARR 
XFN 225021 COMB 


HMSLEX 

XFN 225022 HMS+ 
XFN 225023 HMS- 
XFN 225024 HMS 
XFN 225025 HR 


XERRLEX 
* XFN 225026 XERRLEX 
STKLEX 

XWORD 225027 STACK 


KSPEEDLX 
XWORD 225028 KSPEED 


MARGELEX 
XWORD 225029 MARGIN 


PRIMLEX 
* XFN 225030 PRIM 
ONKEYLEX 
* XFN 
* XFN 


225031 CURSDOWN 
225032 CURSKEYS 


MENULEX 
XFN 225033 MENU 


FORMALEX 

XFN 225034 CENTERS$ 
XFN 225035 CESURE 

XFN 225036 FORMAT$ 
XFN 225037 REDUCES 
XFN 225038 SPACES 


PRINTLEX 

XWORD 225039 BELL 
XWORD 225040 BOLD 
XWORD 225041 CR 
XFN 225042 ESCS$ 
XWORD 225043 FF 
XWORD 225044 LF 
XWORD 225045 MODE 
XWORD 225046 PERF 


=ENDUP$() 
ENDUP $ 
$=STARTUP$() 
EXECUTE $ 


CMD16 


n=ARR(n,n) 
n=CoMB(n,n) 


n=HMS+(n,n) 
n=HMS-(n,n) 
n=HMS(n) 
n=HR(n) 


n=XERR(n) 


STACK n 


KSPEED n 


MARGIN n 


n=PRIM(n) 


n=CURSDOWN( ) 
n=CURSKEYS() 


n=MENU(n [,n]l) 


$S=CENTERS($,n) 
n=CESURE($,n) 
$S=FORMATS(S,n) 
S=REDUCES($) 
$=SPACES$(n) 


BELL 

BOLD ON|OFF 
CR 

$S=ESCS( [$]) 
FF 

LF In] 

MODE n 


- PERF ONJOFF 





XWORD 225047 PL 
XWORD 225048 UNDERLINE 
XWORD 225049 WRAP 


INDATLEX 
* XFN 225050 INDATES$ 


KBDLEX 
* XWORD 225051 KBD 


DATELEX 

XFN 225051 DATE+ 
XFN 225052 DDAYS 
XFN 225053 DMY 
XFN 225054 DOW$ 
XFN 225055 DO 
XFN 225056 MDY 


MMLEX 

XFN 225057 MAXD 
XFN 225058 MAXM 
XFN 225059 MEMD 
XFN 225060 MEMM 


EXITLEX 
XWORD 225061 EXIT 


PPOLL 


XFN 
XFN 
XHORD 
- XFN 


225062 NLOOP 
225063 PPOLL 
225064 SLEEP 
225065 SRQ 


STRUC1 

XWORD 225066 END 
XWORD 225067 WHILE 
XWORD 225068 REPEAT 
XWORD 225069 UNTIL 
XWORD 225070 LEAVE 


SWAPLEX 
XWORD 225071 SWAP 


SCANLEX 

XFN 225072 ENTRY$ 
XFN 225073 TOKEN 
XFN 225074 TYPE 


FINDLEX 
XWORD 225075 FIND 


L'INKLEX 
XFN 225076 LABEL$ 
XFN 225077 MNEMO 


GRAPHLEX 
XWORD 225078 GLINE 
XWORD 225079 GPSET 


PL On [,n]] 
UNDERLINE ON|OFF 
WRAP ON]OFF 


$=INDATES() 


KBD n 


n=DATE+(n,n) 
n=DDAYS(n,n) 
DMY 
$=DOW$(n) 
n=DOW(n) 

MDY 


MAXD(n|$) 
MAXM(n|$) 
MEMD(n|$) 
MEMM(n|$) 


EXIT var 


n=NLOOP( [En] ) 
n=PPOLL( [n]) 
SLEEP 

n=SRQ( [n]) 


END WHILE 
MHILE n 
REPEAT : 
UNTIL n 
LEAVE 


SWAP var,var 


$=ENTRYS$S($ [,nl) 
n=TOKEN($ [,n]l) 
n=TYPE(S [,n]) 


FIND $ 


$S=LABEL$($) 
n=MNEMO($) 


GLINE n,n,n,n,n 
GPSET n 





RPLCLEX 

XFN 225080 RPLC$ S=RPLCS($,$,$) 
SRINKLX 

XWORD 225081 SHRINK SHRINK $ 


DIVILEX 

XFN 225082 FPRM 
XFN 225083 NPRM n=NPRM(n,n) 

XFN 225084 PGCD n=PGCD(n,n...n) 
XFN 225085 PHI n=PHI(n) 

XFN 225086 PPCM n=PPCM(n,n...n) 
XFN 225087 PRIM n=PRIM(n [,nl) 


n=FPRM(n [,n]l) 


FRACLEX 

XFN 225088 FRAC$ $=FRAC$(n [,n]l) 
POSILEX F 

XFN 225089 POSI n=POSI($,n [,n]) 


BASICLEX 

XWORD 225090 BLIST 
XWORD 225091 PBLIST 
XWORD 225092 RENUMREM 


BLIST [$ [,n [,n]]] 
PBLIST [$ [,n [,nll] 
RENUMREM [n£,n£,n£,n]11] 


LES DEBUTS 


Cela fait déjà longtemps que vous adhérez à 
PPC-Paris. Vous voyez avec envie Les articles 
traitant d'assembleur HP71B. Vous avez acquis 
Les IDS par Un moyen où par un autre. 


Mais voilà : vous n'arrivez pas à vous y 
mettre, Le sujet est difficile, très difficile. 
Et vous ne savez pas par quel bout L'appréhender. 


IL est de l'intérêt général que Le plus de gens 
possible se mettent à l'assembleur du HP71B. Et 
c'est pour vous, pour vous encourager que je 
rédige cet article. J'espère que ce sera Le 
petit coup de pouce qui vous fera passer à l'acte. 


QUE FAUT-IL ? 
Pour faire de l'assembleur sur HP71B, il faut : 
1 HP71B 


1 module Forth/Assembleur 
1 moyen de sauver ses programmes (cartes, K7...) 
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IDS 1 (fonctionnement général du HP71B) 
IDS III (listing commenté des 64Ko de rom interne) 
Les JPC à partir du No 20 (déc. 84/Janv. 85) 


et de La matière grise ! 


PAR QUOI COMMENCER ? 


Là, il y a deux solutions. Le Forth ou Le Basic. 


Les primitives Forth sont généralement faciles 
à écrire, et conviennent bien pour apprendre à 
manipuler Les instructions du microprocesseur. 
Néanmoins, et c'est mon avis personnel, on 
apprend beaucoup plus en faisant des fonctions 
Basic. Et en plus (c'est toujours mon avis 


personnel}, c'est bien plus rigolo... 


Donc, vous avez choisi librement d'écrire de 
l'assembleur à utiliser en basic. Par quoi 
commencer ? 


Le plus simple, ici, ce sont Les fonctions. IL 
existe deux sortes de programmes assembleur pour 
Le basic : 


Les ordres (ou statements) 
Ex: BEEP, GOTO, INPUT... 


Les fonctions 
Ex: LOG, UPRC$, POS... 


Les fonctions renvoient toujours un résultat. 
C'est le mécanisme Le plus simple pour débuter. 
L'exemple de cet article est une fonction. 


OÙ SONT LES DONNEES ? 
OU SERA LE RESULTAT ? 


Dans Le HP71, Les fonctions prennent Les 
données sur La Math-Stack, et laissent Le 
résultat sur celle-ci, en ayant pris soin 
d'enlever Les données. 


cherchions à 
(conversion en 


Exemple imaginons que nous 
évaluer  LOWC$S(UPRCS$(!''areuh")) 
minuscules de La conversion en majuscules de 
“areuh"). 


Nous trouverons La chaîne "AREUH" (c'est à dire 
déjà traitée par UPRC$) sur La Math-Stack. Et 
nous mettrons La chaîne "areuh'" sur cette même 
Math-Stack, à La place de "AREUH". 
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La Math-Stack est un espace Libre qui sert 
pendant l'évaluation des fonctions. Grosso modo, 
cela ressemble à : 


Adresses basses 


AVMEMS> | 


Espace Libre 


| 
| 
| 
| 
| 


D» fesses. | 


| | paramètre n 


| | paramètre 2 
| 
RTS 
| 
| | paramètre 1 


| | 

| | 

| | 

| | Quelque chose, quelconque, 

| | mais qu'il faut préserver... 
| | 
| | 
| | 


Adresses hautes 


Chaque paramètre contient Un en-tête (header) 
qui identifie son type (réel, tableau, chaîne, 
complexe). En pratique, cet en-tête ne nous 
importe pas quand on passe par Les routines HP 
(POP1S, POPIN...), qui Le testent pour nous. 


Si votre fonction admet n paramètres (n<16), 
alors elle devra enlever Les n paramètres et 
mettre Le résultat à La place. 


En pratique, cela revient à 
pointeur D1 (pointeur de Math-Stack). 


déplacer Le 


Venons-en maintenant à notre Lex LOWCLEX. La 


seule et unique fonction est destinée à 
convertir une chaîne en minuscules. 
IL faut donc accepter une chaîne 


alphanumérique, enlever son en-tête, remplacer 
tous Les caractères par Les mêmes en minuscules, 
et reconstruire l'en-tête. 


En fait, nous nous trouvons ici devant une 
fonction particulière : La longueur de La chaîne 
résultat est La même que celle de l'argument. IL 
n'y aurait donc pas besoin d'enlever l'en-tête. 
Mais pour illustrer La méthode générale, j'ai 
choisi de procéder de manière classique. 


Le header est évalué par POPIS, qui vérifie en 
même temps que l'élément est bien une chaîne, et 
retourne La Longueur de celle-ci. 


Ensuite, une boucle est faite pour la conversion. 


L'en-tête est enfin reconstitué par ADHEAD, qui 
renverra Le contrôle au Basic. 


Voilà, vous en savez autant que moi. J'espère 
que vous étudierez et comprendrez Le programme. 
J'ai essayé de mettre suffisamment de 
commentaires pour Le rendre compréhensible. 


Et n'oubliez pas d'envoyer vos oeuvres à JPC ! 


A Bientôt 


Pierre David (SIG, PC37, CHHU616) 


LEX "LOWCLEX 
he he eh eee ee eee ee ee ee ee ee ee eee 


* 


* Lex MLOWCLEX" : fichier Lex didactique à l'usage 
* des membres de PPC-Paris qui veulent en savoir 
plus sur l'assembleur du HP71. 


* 
* 
* Fonction présente : 

*  LOWC$S ( <chaîne numérique> ) 

* convertit une chaîne de caractères en 
* minuscules (pendant de UPRC$ pour Les 
* majuscules). 

* 

* 





* 


Note : ne pas rentrer les commentaires dans Le 
fichier source. Cela prend de La place, et du 
moment que vous avez ces commentaires dans votre 


* Journal préféré... 
ROROR ROUE ee Re 


* 


* 


Id du Lex. 

‘#1 indique qu'il s'agit d'un nombre en 
hexadécimal. 

analogie : l'Id est au HP71 ce que le premier 
numéro d'un XROM est à La HP41. L'Id 
identifie Le fichier Lex. 

5C (92 en décimal) est parmi Les Id de scratch 
alloués par HP. C'est à dire Les Id 
utilisables pour nos essais. 

Si jamais une fonction est d'intérêt suffisant * 
PPC-Paris lui attribue un numéro dans l'Id 
de PPC-Paris (#E1, ou 225), ce qui est 
généralement Le cas. 

Les Id de scratch sont : 5C, 5D et 5E 
C'est ceux-ci que vous utiliserez pour vos 
premiers essais 


MONO OO OO OÙ OÙ OÙ 6  Ùù  Ùù  #  # #  * 


ID #5C 


La table de message 

Le ‘0! indique qu'il n'y a pas de table de 
messages. 

Nous verrons ça une autre fois, peut-être. 

En tous cas, sachez que La construction d'une 
table de messages est fastidieuse, et qu'il 
vaut mieux la laisser à des programmes (il 
en existe un, en Basic) 


MO OÙ OÙ #  # # * 


MSG 0 


La routine d'interception de poll 
cf ci-dessus : Le '0' indique qu'il n'y a pas 
de routine d'interception de poll. 


RE | 


POLL 0O 


La partie constituant l'en-tête du fichier est 
finie. Maintenant, il y a Les descriptions des 
fonctions, au nombre de une ici : 


L'ordre ENTRY indique l'adresse ou commencera 
l'exécution de La fonction. 


OO OO OÙ Ù # # * 


ENTRY Lowc 


CHAR #F indique qu'il s'agit d'une fonction. 
(et non d'un “statement"). 


RE | 


CHAR  #F 
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# Ù #Ù *# *# 


KEY est suivi du nom de La fonction. Le '$! est 
Le seul moyen pour le système Basic de savoir 
qu'il s'agit d'une fonction alphanumérique. 

Le nom doit être Limité à 8 caractères (y 


*compris Le 1$!). 


* 


* NM Ù Ù #ù # * * * * * * 


* * * * 


KEY ILOWCS! 
Vient enfin Le numéro de token de La fonction, 
c'est à dire Le deuxième numéro d'un XROM HP41 
pour garder l'analogie ci-dessus. 

TOKEN 28 
ENDTXT = fin de La partie obligatoire du Lex. 
C'est La fin de La déclaration des noms et des 
caractéristiques des fonctions présentes dans ce 


Lex. 


ENDTXT 


C'est ici que commence véritablement Le Lex. 


Ici, nous définissons Les noms des routines 
internes HP que nous allons utiliser : 


ADHEAD EQU #18187 
D=AVMS EQU #14460 
POP1S EQU #0BD38 
RANGE  EQU #1B07C 


NO # # *# * 


NO OO OÙ OÙ OÙ OÙ OÙ Ù  Ù  Ù  #  * * 


Juste avant Le point d'entrée de La fonction 
(défini par ENTRY), il y a La description des 
paramètres. Il y a ici : 
NIBHEX 4 Une chaîne alphanumér ique 
NIBHEX 1 Un paramètre au minimum 
NIBHEX 1 Un paramètre au maximum 


Le point d'entrée de La fonction. C'est ici où 
arrive Le système, quand il va essayer d'évaluer 
LOWCS$S(!AREUH!). 

A cet instant Là, nous aurons : 

P=0 

Mode = Hex 


4 niveaux de pile (RSTK) disponibles 

La chaîne ('"AREUH") est sur La Math-Stack 
C(S) contient Le nombre de paramètres (ici 1) 
DO contient Le pointeur programme 

D1 contient Le pointeur sur La Math-Stack 
DÇ(A) = AVMEMS - = 
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* Le premier travail à faire sera de sauvegarder 


* DO, pour Le restituer en bon état à La fin. 
* 


Louc 
* 
* DO est sauvegardé dans La pile de retours, car 
* nous n'allons pas beaucoup l'utiliser dans ce 
* Lex. Si ça n'avait pas été Le cas, nous aurions 
* sauvé DO dans FUNCDO qui est prévu pour ça. 
* 
CDOEX 
RSTK=C 
* 
* IL faut maintenant regarder ce que nous avons 
* sur La Math-Stack. L'utilitaire POP1S est fait 
* pour cela : il examine Le "stack-header!", et 
* en déduit La longueur de La chaîne. En sortie, 
* D1 = adresse de 'H! 
* ACA) = 10 (= 2x5 caractères) 
* 
GOSBVL POP1S 
* 
* D1 pointe sur Le 'H'. Nous allons Le faire 
* pointer sur Le 'A'. 
* L'adresse ainsi obtenue sera sauvegardée dans 
* R1 pour être utilisée par ADHEAD. 
* La chaîne sera parcourue de 'A! à 'H!. 
* 
F | #00000 | 
. | 
: | | 
‘ Es | 
* (1) -> | Stack | 
L | header | 
: ares | 
* (2)->]  H  ] 
; ES | 
. | ou | 
: Ha 
k | € | 
: Lise | 
| | OR | 
* és | 
* | A | # 
k Pere | 
* | I<- (3) 
: | 
: | 
* | #FFFFF | 
* 
* (1) : avant Le POP1S 
* (2) : après Le POP1S 
* (3) : après Le C=C+A 
* 
CD1EX C(A) := adr. de 'H! 
C=C+A A . CCA) := adr. juste avant 'A! 
D1=C D1 := adr. juste avant 'A' 
R1=C R1 := début de La chaîne -. 


OO OO # Ù * * 


OÙ OÙ OÙ OÙ OÙ OÙ OÙ % % OÙ % 


Nous allons maintenant calculer La longueur en 
octets, par une division par 2 de A(A). 
AÇA)=XXXXXXXXXXXL LLLL 

Nous allons faire une divison par 2, c'est à 
dire un décalage à droite de 1 bit. Mais alors, 
le premier 'x'! va interférer avec !'LLLLL'!' (on ne 
peut décaler que Le registre complet). 


B=0 M premier x:=0 (entre autres) 
B=A A B(W)=x0000000000LLLLL 
BSRB B(A)=longueur en octets 
* 
* B(A) est maintenant La longueur de La chaîne en 
* octets. Cela va nous servir de compteur de 
* boucle. 
*:FOR B(A)=B(A) TO 1 STEP -1 
* 
La boucle qui suit est d'un type que vous voyez 
souvent dans mes programmes : 
Vous voulez compter n fois 
LC(5) n 
GOTO b20 
b10 
<code de La boucle> 
b20 C=C-1 A 
GONC  b10 
Si si, essayez, ça marche ! 
GOTO lowc20 
Lowc10 D1=D1- 2 D1 := adr. exacte du 'A! 
A=DAT1 B A(B) := 'A! 
LCASC ZA! } A(B) dans l'intervalle 


lowc20 B=B-1 A 


HO OO OÙ #4 * * 


GOSBVL RANGE 3 "An "20 ? 


GOC louc20 Non. On ne fait rien 
LC(2) 32 Conversion en majuscule 
A=A+C B 

DAT1=A B Et remise en mémoire 


Décrémentation du compteur 


GONC Lowc10 Saut si non fini 
La boucle est maintenant finie. 
D1 pointe sur ‘'h! 


R1 pointe juste avant 'a! 


IL. faut renvoyer ces informations au système, 
par l'intermédiaire de La routine ADHEAD. 
Mais auparavant, vous vous souvenez que nous 
avons mis DO dans La pile de retours ? 

IL faudrait peut-être penser à Le rapatrier... 








C=RSTK 
DO=C 


* ADHEAD attend dans D(A) La valeur de AVMEMS 
GOSBVL D=AVMS 


Pour l'explication exacte de ce ST=0, voir La 
documentation de ADHEAD. 


#* + *# * 


ST=0 0 
GOVLNG ADHEAD 


Et voilà 74 octets d'assembleur HP71. Alors, ça 
ne vous donne pas, vous aussi, l'envie de vous 
y mettre ? 


RE | 


END dE 


TRAITEMENT DE TABLEAUX 


VECTLEX 
Voici 5 nouvelles instructions pour votre 
HP-71. La préoccupation qui est à La base de ce 
travail est simple à saisir : La manipulation- 


des colonnes d'un tableau n'est pas aîsée et 
prend bien du temps à l'exécution. IL était donc 
nécessaire de travailler en assembleur. 


Les cinq instructions sont : 


Une fonction : 
SOMME des éléments d'une colonne 


Quatre ordres : 

MULTIPLICATION d'une colonne par une valeur 
ADDITION d'une valeur à chaque terme d'une colonne 
COPIE d'une colonne 

TRI d'une colonne 


Quelques remarques sur ces instructions : 


- Le tableau peut être de n'importe quel 
(réel, entier ou court), 


type 


- La copie peut être effectuée dans Le tableau 


lui-même ou sur un autre tableau, 
= la colonne n'est pas nécessairement 


considérée dans sa totalité : des paramètres 
définissent les numéros de Ligne pris en compte. 
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IL a été nécessaire de rompre avec l'habitude 
de désignation des tableaux pour définir 
totalement Les instructions. Donc, au début, 
soyez attentifs à La syntaxe : LE NOM DU TABLEAU 
EST A METTRE ENTRE LES PARENTHESES. 


+- 


VSUM 


Syntaxe : S=VSUM (V,L1,C1,L2) 


Renvoie La somme des éléments du tableau V, de 
la colonne C1, de La Ligne L1 à La Ligne L2 
incluses. 


VADD 


Syntaxe : VADD (X)+(V,L1,C1,L2) 


Effectue l'addition sur chacun des termes de La 
colonne C1 du tableau V, de La Ligne L1 à la 
Ligne L2 par La constante X. Les nouvelles 
valeurs remplacent les valeurs initiales. 


VMULT 


Syntaxe : VMULT (X)*(V,L1,C1,L2) 


Effectue Le produit de chaque terme de La 
colonne C1 du tableau V, de La Ligne L1 à la 
ligne L2 comprises, par La constante (X). Les 
nouvel Les valeurs remplacent Les valeurs 
initiales. 


VCOPY 


Syntaxe : VCOPY (V1,L1,C1,L2) TO (V2,N1,M1,N2) 


Effectue La copie de La colonne C1 du tableau 
V1 sur La colonne M1 du tableau V2. Les tableaux 
peuvent être de types différents. Les 
différences L2-L1 et  N2-N1 ne sont pas 
nécessairement égales ; l'instruction s'arrête 
d'elle-même lorsque La plus petite colonne est 
copiée. IL est possible de copier une colonne 
partiellement sur elle-même sans précautions. 
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VSORT 


Syntaxe : VSORT (V,L1,C1,L2) 


Trie Les Lignes d'un tableau suivant les 
valeurs d'une colonne C1. Le tri est stable. 


Pour vous mettre dans Le bain, voici quelques 
informations sur Le traitement des 
numériques dans Le HP-71. 


valeurs 


REPRESENTATION INTERNE DES DONNEES 


Exposé des formats de représentation des 
variables numériques dans La mémoire du HP-71 ou 
dans Les registres du CPU. 


1 Types de données 


Le HP-71 supporte sept types de données. Le 
type de donnée d'une variable est identifié par 
l'apparence du registre de variable. Les valeurs 
réelles simples sont conservées directement dans 
le registre de variable et peuvent être 
identifiées par Le quartet de poids faible qui 
appartient à l'ensemble [0 à 9) (et qui est 
également interprété comme Le quartet de poids 
faible de l'exposant). Si ce quartet de poids 
faible du registre de variable n'appartient pas 
à cet ensemble, Le registre est utilisé comme 
descripteur de l'un des six types de données 
suivants : 


Entier 

Réel court 
Tableau de réels 
Complexe court (simple ou tableau) 
Complexe (simple ou tableau) 
Chaîne (simple ou tableau) 


(simple ou tableau) 
(simple ou tableau) 


n MON ww >» 


2 Registres 


Ce paragraphe expose La représentation des 
variables en mémoire. IL contient une 
introduction à La représentation des nombres 
dans Le CPU. 


Les nombres dans Les registres du CPU : 





Quand un nombre est transporté dans un registre 
du CPU, Le processus de rappel (recherche dans 
la mémoire et chargement dans Le CPU en passant 
par La mathstack) doit Le convertir en un ou 
deux nombres de représentation standard 
(respectivement pour les valeurs de type réel ou 
complexe) ; la représentation standard est La 
suivante : 


15 0 
Hermes mms +----- + 

IS]  Mantisse | Exp | 
Hermes +. + 

1 12 3 16 quartets 


l'ordre des chiffres correspond à 
quartets du registre : 


l'ordre des 


15 0 
Hermes ss +----- + 

ISA 2 4e MO |E2.E0| 
Hehensssesmmeneseseesssses +. + 

1 12 3 16 quartets 


La mantisse n'est pas signée, Un champ séparé 
(le champs S) représentant Le signe (0=+, 9=-). 
L'exposant est exprimé sous La forme d'un 
complément à 10. Cette représentation est La 
forme normale attendue par tous les utilitaires 
utilisant des arguments de 12 chiffres en 
virgule flottante. 


“ Beaucoup d'utilitaires travaillent 
valeurs exprimées sur 


avec des 
15 chiffres pendant les 


calculs intermédiaires afin d'obtenir une plus 
grande précision. Typiquement, Lors de 
l'implantation d'une fonction, Le paramètre est 
prélevé (sous sa forme 12 chiffres) réexprimé 
sous sa forme 15 chiffres, l'utilitaire de 
calcul appelé et enfin Le résultat est réexprimé 
arrondi sous sa forme 12 chiffres. 
La représentation 15 chiffres est disposée 
ainsi dans Les registres : 
15 0 
AR EEE CEE + 

| | Mantisse | ! 
Het ne +----- + 

1 15 16 quartets 
15 0 
EE EEE + + 

ISI | Exp | 
etes + + 

1 10 5 16 quartets 


où L'exposant a été réexprimé sur 5 chiffres 
(incluant Le signe si l'exposant est négatif). 





3.4 Accès aux variables à partir d'un programme 
binaire. 


Voir JPC No 29 (Nov 1985), Page 29. 


Nota 


Le Lex est placé en 


Jean-Jacques Dhénin 
(PC177 SIG5) 


id #5C car il va 


certainement évoluer dans l'avenir. Le placer en 


#E1 


aurait posé des problèmes de compatibilité 


avec les versions futures. 


 Ù ù *# * 


LEX 


TITLE 


"VECTLEX! 


Vecteurs manipulations 


Jean-Jacques DHENIN (SIG#5 P#177) 


1ère partie : TPOURC 


43 36 12 05 


29/12/85 


RRRRRRRRÉRRRRRÉRRRRRRRRRRRERRARRRRRRRRR RÉ 


* 

id EQU #5C 

t EQU 100 

Vcfg0 ID id 
MSG 0 
POLL  pvect 
ENTRY Sum 
CHAR  #F 
ENTRY Pro 
CHAR  #D 
ENTRY Copy 
CHAR  #D 
ENTRY Tri 
CHAR  #D 
ENTRY Plus 
CHAR  #D 
KEY ‘VSUM! 
TOKEN t 
KEY 'VMULT! 
TOKEN 1+t 
KEY 'VCOPY! 
TOKEN 2+t 
KEY *VSORT ! 
TOKEN 3+t 
KEY ‘VADD! 
TOKEN 4+t 
ENDTXT 
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=A-MULT EQU 
=AD2-12 EQU 
=AD2-15 EQU 
=ARGERR EQU 
=ARYDC EQU 
=ARYELM EQU 
=ARYSIZ EQU 
=AVMEMS EQU 
=COLLAP EQU 
=COMCK EQU 
=CSLC5 EQU 
=CSRC10 EQU 
=CSRC3 EQU 
=CSRC4 EQU 
=CSRC5 EQU 
=CSRCé EQU 
=CSRC8 EQU 
=D1FSTK EQU 
=D1MSTK EQU 
=EXAB2 EQU 
=EXPEX- EQU 
=EXPEXC EQU 
=FD0 EQU 
=FNRTN& EQU 
=FORSTK EQU 
=FRO EQU 
=FR1 EQU 
=FUNCR1 EQU 
=GNXTCR EQU 
=GTEXT++ EQU 
=INTGR EQU 
Z=MEMERR EQU 
=MFERR  EQU 
=MOVEDM EQU 
=MOVEUM EQU 
=MP2-12 EQU 
=MSTKD1 EQU 
=NXTELM EQU 
=NTOKEN EQU 
=NUMCK  EQU 
=NXTSTM EQU 
=OAGNXT EQU 
=OUTBY+ EQU 
=OUTBYT EQU 
=OUTELA EQU 
SPOPIN EQU 
=RCCD2 EQU 
=RDATTY EQU 
ZRESTPR EQU 
=RNDAHX EQU 
=SCRTCH EQU 
=SFLAGC EQU 
=SHRT  EQU 
=SPLITA EQU 
=STAB2 EQU 
=STKVCT EQU 
=STMTRO EQU 
=SYNTXe EQU 
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#1B349 
#0C35F 
#0C363 
#0BF19 
#05178 
#O0B5A7 
#0B61B 
#2F594 
#091FB 
#036CD 
#1B435 
#1B432 
#1B421 
#1B41E 
#1841B 
#18418 
#1B42C 
#19550 
#1954E 
#O0D40E 
#0F178 
#0F186 
#2F8BB 
#0F238 
#2F59E 
#2F898 
#2F8AB 
#2F8AB 
#03064 
#05192 
#0F998 
#0944D 
#09393 
#1B0EE 
#1815C 
#0C432 
#1953C 
#148AC 
#0493B 
#03690 
#08A48 
#03060 
#O2CES 
#O2CE8 
#05303 
#0BD1C 
#0D41C 
#17CC6 
#03172 
#136CB 
#2F901 
#13601 
#0F96C 
#0C6BF 
#0D400 
#1470C 
#2F871 
#02E2B 


=TSTI2A EQU 
=VARP  EQU 
=eSUBSC EQU 
=pCONFG EQU 
=tTo EQU 
=URES12 EQU 


pvect ?B=0 
GOYES 


GONC 


hVER$ C=R3 
D1=C 
A=R2 
D1=D1- 
CD1EX 
?A>C 
GOYES 
D1=C 
R3=C 
VER$st LCASC 
VER$en DAT1=C 
hVER$1 RTNSXM 
* 
Ures12 GOVLNG 
cslc5 GOVLNG 
csrcé  GOVLNG 
csrc5 GOVLNG 
stab2 GOVLNG 
difstk GOVLNG 
dimstk GOVLNG 
invpar GOVLNG 
ivvarE GOVLNG 
mstkd1 GOVLNG 
movedm GOVLNG 
moveum GOVLNG 
nxtstm GOVLNG 
outby+ GOVLNG 
splita GOVLNG 


#00476 
#0350E 
#1C 
#FB 
#F3 
#0C994 


B 
hVER$ 


hVERS$1 


(VER$en)-(VERS$st)-2 


A 
hVER$1 


" VT:C! 
(VER$en)- (VER$st ) -2 


=URES12 
=CSLC5 
=CSRC4 
=CSRC5 
=STAB2 sa 
=D1FSTK 
=D1MSTK 
=ARGERR 
=RDATTY 
=MSTKD1 
=MOVEDM 
=MOVEUM 
=NXTSTM 
=OUTBY+ 
=SPLITA 


Re eee ee he ee eh he ee ee ee ee ee ee ee ee 


* Nom : argan 


* 


* 


* Nom : velm 


Remarques : 
Sous 


Historique 
Date 


* 29/11/85 


RE | 


* 


- préparation aux 
manipulations, 
analyse des arguments. 

- Calcul de l'adresse d'un 
élément dont on connait Les 
coordonnées dans Le 
tableau. 


La mstk on trouve Le dope 


vector, 
se reporter aux routines STKVCT et 
NXTELM pour conditions d'utilisation. 


Programmeurs Modifications 


JJD Création 


Rhode he he he de he he he he ee he he ee ee ee ee ee eee ee ee ee 





arg 


vexp- 
vexpc 
argan 


vect1 


vect2 


vect11 


vect22 


vect12 


GOSBVL 
GONC 

DATO=A 
D1=D1+ 


DO=D0+ 
RTN 


GOSBVL 
GOSBVL 
CDOEX 
DO=(5) 
DATO=C 
DO=(2) 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
=DAT1 
LCHEX 
?2A<C 
GOYES 
C=A 
CSRC 
ST=0 
P=C 
?2P= 
GOYES 
ST=1 
P= 
CSRC 
ST=0 
?C=0 
GOYES 
ST=1 
CSR 
DO=D0- 
?ST=0 
GOYES 
C=0 
2ST=0 
GOYES 
C=C+1 
ST=0 
A=DATO 
2A>C 
GOYES 
?2ST=0 
GOYES 
?A=0 
GOYES 
C=C-1 
A=A-1 
C=C+1 
DATO=A 
D1=01+ 
DAT1=C 


=RNDAHX 
invpar 
A 

16 


=COLLAP 
=EXPEXC 


=FDO 
A 
=FRO 
arg 
arg 
arg 
mstkdi 
W 

#A 

P 
ivvarE 
W 


P 
vect11 
8 

A 

10 

9 
vect22 
A 

8 
vect22 
A 

0 

A 

A 
Esubsc 
8 
vect12 
A 
Esubsc 
A 

A 

A 

A 

3 

3 


-> ALA] = arg en Hex 
Si négatif -> err 
place arg dans F-RO- 
Passe au paramètre 
suivant 

Passe F-RO suivant 


à MSTK = à FORSTK 
Evaluation 

Sauve DO ... 
...dans FDO 


Début de l'analyse 


F-RO-0 = L2 
F-RO-1 = C1 
F-RO-2 = L1 


Préserve Le dope vect. 
Lit Le 'Dope vector! 


Si variable simple 
| alors erreur 


Passe Le type 
ST=(9) 1 dim 

P = Nb de dim 

Si base 2 

| alors ST(9)= 0 
| sinon ST(9)= 1 


Passe Le nb de dim 
ST(8)= base 0 

Base 0 ? 

Oui ST=0 8 

ST8= base 1 

Passe et ALAJ= nb col 
F-RO-1 = C1 

Si base 2 

| alors continue 

| sinon 

| si base 0 

| | alors ALAJ= 0 

| | sinon ALA]= 1 
STO pour 2 boucles 
ACA)= C1 

Si dépassement 
[alors ERR:Subcript 
Si base 0 

| alors ok 

| Sinon Si Col 0 

| | alors ERR 

| Max col -1 si base 1 
| c1-1 

C[IA] = max colonnes 
F-R0O-1 No col. norm 


vect13 


vect14 


Esubsc 


mferr 


vect15 


D1=D1- 
GOSUB 
CSR 
DO=D0+ 
A=DATO 
?A>C 
GOYES 
?2ST=0 
GOYES 
?A=0 
GOYES 
A=A-1 
DATO=A 
2ST=1 
GOYES 
RO=A 
ST=1 
D0=D0- 
GONC 
P= 
LC(2) 
GOVLNG 


C=RO 
A=A-C 
GOC 
DATO=A 
ST=0 


GOSBVL 


GOSUB 
SETHEX 
D1=D1+ 
p=" 
C=0 
C=C-1 
P= 
DAT1=C 
D0=(5) 
D1=D1- 
C=DATI 
DATO=C 
DO=D0- 
C=DATO 
RO=C 
GOSBVL 
A=C 
GOSUB 
D=C 
GOSUB 
C=A 
R1=C 
C=D 


3 
csrc4 
A 

5 

A 

A 
Esubsc 
8 
vect14 
A 
Esubsc 
A 

A 

0 
vect15 


0 

10 
vect13 
0 
=eSUBSC 
=MFERR 


A 
Esubsc 
A 
8 


=STKVCT 


dimstk 


7 

3 

WP 

WP 

0 

3 
=FUNCR1 


=CSRC10 
A 

csles 

A 

cslces 

A 


A 


C[A] = nb Lignes 

DO= #2F8A5 F-RO-2 

1 : F-R0O-2 ; 2 : F-RO-0 
L1 ou L2 > Lgn max ? 
Base 0 ? 


Base 1 : Ligne 0 ? 


L1 ou L2 -1 


2ème boucle ? 
Oui passe La suite 


Prépare 2ème boucle 
DO= #2F89B F-RO-0 


L2>L1 ? 


F-RO-0 = N = L2-L1 
Pas de réécriture 
Dopvect 

sinon écrase STMTR = 
DEST 


* Maintenant RO[15-10]1= Addr et RO(A)= N 


* 


R1CA)= L1 


GOTO 


velm 





et R1(9-5)= C1 
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vnimt 

C=RO 

C=C-1 A 
RTNC 

RO=C 

C=R1 

C=C+1 À 
R1=C 

A=C A 
GOSUB csrc5 


Calcul de l'adresse d'un élément 
A= numéro de ligne , C= numéro de colonne 


Sortie : R0O(15-11)= adresse de l'élément 
B= élément 12 digits 


velm  SETHEX 
D=C A D= n. de col 
c=0 A 
DO=(5) (=FUNCR1)+3 
P= 0 
C=DATO 3 C(A)= nb de col 
DO=D0- 3 
GOSUB a-mult  L,0 
C=D A C= n. col 
C=C+A A 
B=C A 
velm2 GOSUB ofst 
DO=D0+ 11 
C=DATO A 
C=C+A A Calcul de l'adresse 
D1=D1+ 11 
DATI=C A 
C=RO 
GOSUB cslc5 
C=DATI A 
GOSUB csrc5 
RO=C ROL15-11] =addr de 
x l'élmt 
ST=0 7 
GOSUB dimstk 
GOSBVL =NXTELM 
?2ST=0 5 
GOYES velm21 
GOTO mferr 
velm21 D1=D1+ 16 
GOSUB mstkd1i  MSTK au dessus de 


> Dopvect. 
P= 0 
SETHEX 
C=RO 
GOSUB csle5 
A=C A 
RTN 


* RO=(15-11) Addr de l'élmt; B=élmt; élmt on 
* MSTK 
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* ofst 

* calcule Le déplacement de n. éléments 
* B(A)= nb d'éléments 

* DO= FR1 


ofst A=DATO P 
C=0 A 
LCHEX #8 
?2A=C P 
GOYES vshr 
?7A<C P 
GOYES vint 
LCHEX #10 
GOTO mult 
vshr  LCHEX #9 
GOTO mult 
vint  LCHEX #6 
mult ABEX A 
a-mult GOVLNG =A-MULT 


HORMONE Re HR RAR RE RER Re 


* 

* Nom : stelm 

* 

* Objet : 

* Chargement des éléments calculés dans 
€ un tableau. 

* 

* Historique : 

* 

* Date Programmeurs Modifications 
V'unnssases. cobssaseciconds. Sanaa Rsenesu 
* 29/11/85  JJD Création 


* 


He he he eee he ee he ee he ee ee ee ee ee ee ee ee eee eee ee 


stelm GOSUB Ures12 


SETHEX 

st12 B=C u 
C=RO 
GOSUB cslc5 
DO=C 
GOSUB dimstk 
A=DAT1 B 
P= 0 
LCHEX #B 
?2A=C P 
GOYES shorts 
?A<C P 
GOYES intgrs 
A=B W 
DATO=A W 
GOTO cfi-4 

shorts 
A=B W 
GOSBVL =SHRT 
GOTO cfl-4 


intgrs A=B 4 
GOSBVL =INTGR 
cfl-4 
SETHEX 


RORRORORO HORMONE R UE RER ER Re 


* 

* Nom : movi 

* 

* Objet : 

* Placer une colonne d'un tableau sur La 
* mathstack. 

* 

* Historique : 

* 

* Date Programmeurs Modifications 
N sassasses sansssasssassssns ss, anis sc RS de ne 
* 10/12/85 JJD Création 


* 


KKKKKRRRRRRRRRRRRRARRRRRRRRRRRRRRRRRRRRRRRRARÉ 


movi  C=DATI W 
A=B w 
DATI=A W 
D1=D1- 16 
DATI=C W 
GOSUB mstkdi 
GOSUB vnlmt 
RTNC 
GONC  movi 


KRRKRRERRRERRRRRRRRRRRRRRRRRRRRRRRRRERRRRRRIRR 
* 

* Routines de parsing et décompilation 

* 


Het he che he he eve eee ee eee ee ee RAR ARR 


Plusd GOSUB arydc 

LCASC !+! 

GONC Prodi (B.E.T) 
Prod  GOSUB aryde 

LCASC ‘*1 
Prod GOSBVL =OUTBYT 

GOSUB arydc 

GONC outela (B.E.T) 
Copyd GOSUB arydc- 

LC(2) =tTo 

A=C B 

GOSBVL =GTEXT++ 
Trid  GOSUB arydc- 
outela GOVLNG =OUTELA 


arydc D1=D1+ 2 

arydc- LCASC !(! 
ST=0 5 
GOVLNG =ARYDC 





Copyp GOSUB 





vectp 


GOSBVL =NTOKEN 
LC(2) =tTo 
2A#C B 
GOYES restpr 
GOSUB  outby+ 
GOSUB gnxtcr 
GOTO vectp 
restpr GOVLNG =RESTPR 
ctep  GOSUB gnxtcr 
LCASC !(! 
GOSUB tken? 
GOSUB outby+ 
GOSUB numck 
LCASC !)! 
GOSUB tken? 
GOVLNG =OAGNXT 
Plusp GOSUB ctep 
LCASC !+! 
GOTO  Propl 
Prop  GOSUB ctep 
LCASC !*! 
Propi GOSUB tken? 
D1=D1+ 2 
vectp GOSUB gnxtcr 
LCASC !(! 
GOSUB tken? 
D1=D1+ 2 
GOSBVL =VARP 
GOSBVL =COMCK 
LC(2) 2 
RSTK=C 
arg3  GOSUB numck 
=RSTK 
C=C-1 B 
GOC P+ 
RSTK=C 
LCHEX #F1 
GOSUB tken? 
GONC  arg3 
P+ LCASC !)'! 
tken? ?A#C B 
GOYES syntxE 
RTNCC 
syntxE GOVLNG =SYNTXe 
numck GOVLNG =NUMCK 
gnxtcr GOVLNG =GNXTCR 


Re eee ee eee ee ee he ee ee ee ee ee ee ee ee 


* Nom : VSUM syntaxe : VSUM (V,L1,C1,L2) 

* 

* Objet : calculer La somme des éléments d'une 
* colonne d'un tableau, de La Ligne L1 
: La Ligne L2. 

* Historique : 

: Date Programmeur Modifications 


* 29/11/85 JJD Création 


HR he he he ee he he eee eee RE Re 
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NIBHEX 888444 


Sum 
GOSUB 
SETDEC 
A=B 
GOSUB 
_ GOSUB 
SETHEX 
sum1 
GOSUB 
Goc 
ABEX 
SETDEC 
GOSUB 
GOSBVL 
GOSBVL 
GOSUB 
SETHEX 
GOTO 
sum2 
DO=(5) 
C=DATO 
DO=C 
SETDEC 
GOSBVL 
- GOSUB 
GOVLNG 


argan 


W 
splita 
stab2 


vnlmt 
sum2 


splita 
=RCCD2 
=AD2-15 
stab2 


sumi 
=FDO 


A 


=EXAB2 
Ures12 
=FNRTN4 


KRRRRRRRRRRRRRRRRRRRRRRRRRRRRR RAR RÉ RÉ RÉ RÉ RRRRe 


* 


* Nom : VPLUS 
* 


Syntaxe : VPLUS (X)+(V,L1,C1,L2) 


Objet 


* 
* 
* 
* 
* 
* 
* 
* 
* 


X =... 


* 28/12/85 JJD 


* 


Date 


Effectuer l'addition sur chacun des 
termes d'une colonne d'un tableau par 
une constante. Les nouveaux éléments 
remplacent les valeurs initiales. 


Historique : 


Modifications 


Programmeur 


Création 


ORNE he eee ee ee eee ee 


ctepr 
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DO=D0+ 2 
GOSBVL EXPEX- Collapse La mstk et pose 
la constante. 


GOSBVL =POP1N 


SETHEX 

D1=(5) =STMTRO 

DATI=A W SCRTCH= Cte 
DO=D0+ 2 Passe TRMNTR ) 
GOTO vexp- 


nxtval 


Plus 


plus1 


SETHEX 
GOSUB 
ABEX 
DO=(5) 
C=DATO 
SETDEC 
RTN 


REL(5) 
REL(5) 


GOSUB 


GOSUB 
GOSBVL 
GOSUB 
GOSUB 
GONC 
GOTO 


dimstk 
W 
=STMTRO 
# 


pour URES12 


Plusd 
Plusp 


ctepr 


nxtval 
=AD2-12 
stelm 
vnimt 
plus1 
nxtstm 


Ah ee eee ee ee he ee ee he eee ee ee ee ee ee eee 


MON OÙ Où Ù Ùù ù # # # # # +» 


* 


* 


* 


Objet 


Nom : VPROD 


Syntaxe : VPROD 


OO*CV,L1,cC1,L2) 


Effectuer Le produit de chacun des 
termes d'une colonne d'un tableau par 


Date 


29/11/85 JJ0 


une constante. Les produits 
remplacent Les valeurs initiales de 
la colonne. 


Historique : 


Modifications 


Programmeur 


Création 


A eee eee RAR RAR RER RER RAR 


Pro 


Proi 


REL(5) Prod 
REL(5) Prop 


GOSUB ctepr 


GOSUB nxtval 
GOSBVL =MP2-12 
GOSUB stelm 
GOSUB vnlmt 
GONC  Prol 
GOTO nxtstm 





KRRRRÉRRRRRRÉRRRRRRÉRRÉRÉRMRRRRRRRRRÉRÉRÉÉÉRRRRRÉÉ 


R2=A 
GOSUB 
GOSUB 
GONC 
nxstmx GOTO 





st12 
vnlmt 
mov3 
nxtstm 


* 

* Nom : VCOPY 

* Syntaxe : VCOPY (V1,L1,C1,L2) TO (V2,L3,C3,L4) 
* 

* Objet : 

# Effectuer une copy d'une colonne d'un 
* tableau sur une autre colonne. Les 

” tableaux peuvent être de types 

” différents 

L Les différences L2-L1 et L4-L3 ne 

* sont pas nécessairement égales, et il 
: est possible de copier une colonne sur 
. elle-même. 

* 

* Historique 

* 

* 

” Date Programmeur modifications 
M'osmasssss ssl Sedo ses Je meue SES ss 
* 15/12/85  JJD Création 


* 


KR R he e e e e  e eeeeee eee e 


Nom : 


Objet 


VSORT Syntaxe : VSORT (V,L1,C1,L2) 


Trier les lignes d'un tableau suivant 
Les valeurs d'une colonne. 


Algorithme : 


La colonne à trier est recopiée sur 
la mstk oK à Lieu Le tri avec 
actualisation d'une représentation 
de l'ordre des lgns. 

Les lgns du tableaux sont placées 
dans l'ordre selon La 
représentation. 


He he he he ee ee ee ee ee ee 


REL(5) Copyd 


M OÙ 6 6 6 6 OÙ OÙ % 6 6 OÙ % % # * 


Historique : 


Date Modifications 


Programmeur 


* 


REL(5) Copyp 


28/12/85 JJD 


Création 
Inversion du test 
et sortie si 1 lg 


Copy 
GOSUB vexp- 
GOSUB movi 
D1=D1+ 16 
GOSUB mstkdi 
DO=(5) =FDO 
C=DATO A 
DO=C 
DO=D0+ 2 
GOSUB vexpc 
D1=(5) =FORSTK 
C=DAT1 A 
R2=C 
GOSUB dimstk 
mov3 
A=RO 
C=R2 
CD1EX 
D1=D1- 16 
D1=D1- 16 
D1=D1- 16 
AD1EX 
2A#C A 
GOYES more 
D1=(5) #00001 
more  AD1EX 
RO=A 
A=C A 
D1=D1+ 16 
D1=D1+ 16 
C=DAT1 W 
AD1EX 


* 
* 14/01/86  JJD 
* 
* 


FRRRRRRRRRRRARARÉRRARRRRRRRRRRRRERÉRÉRRRRÉRRRR 2 


REL(5) Trid 
REL(5) vectp 


Tri 


GOSUB 
GOSUB 


vexp- 
movi 


DO=(5) =FRO 
C=DATO A 


?2C=0 


GOYES 


A 
nxs tmx 


DO=(2) (=FRO)+10 
C=DATO A 


D=C 


A 


DO=D0- 10 
C=DATO A 


B=C 
putnb 

D1=D1 

AD1EX 

D1=(5 


A 


- 16 


) =AVMEMS 


C=DAT1 A 


C=C-A 


D1=A 
Goc 


A 


Tri 


memerr GOVLNG =MEMERR 
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Tri 


dep 


ext 


Sup 


C=D 
DAT1=C 
D1=D1+ 
DAT1=C 
D1=D1- 
C=C+1 
D=C 
B=B-1 
GONC 
GOSUB 
C=DATO 
C=C+1 
C=C+1 
CSL 
R3=C 
D1=D1- 
AD1EX 
C=C+A 
RO=C 
D1=(5) 
C=DAT1 
D1=C 
D1=D1- 
CD1EX 
D1=C 
=RO 
?C#A 


DO=D0- 
ADOEX 
DO=A 
C=RO 
?C>=A 
GOYES 
A=R2 
C=DATO 
P= 
sB=0 
XM=0 
SETDEC 
GOSBVL 
SETHEX 
Goc 
CDOEX 
DO=C 
R1=C 
C=DATO 
R2=C 
GOTO 


>» »>»UBUETE 


putnb 
mstkd1 


> > >» 


=FORSTK 
A 


16 


ext 
res 


nxt 


=TST12A 


sup 


sup 
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RO= Fin de tri 


Positione Les pointeurs * 
Fin de boucle ext ? 


Pour D1= mstk to (top 
-1) 


res 


Lit La valeur min 
supposée 

R2= val initiale 

R1= adr de val 

D but de boucle interne 


Val suivante 


Pour DO=D1 to top 

Si fin de boucle int. 
Rappel min supposé 
Lit val act 


R1 => pointe nouv min 


Lit Le nouveau min resi 


---> 





C=R1 
DO=C 
C=DATI W 
DATO=C W 
A=R2 
DATI=A W 
A=R3 
CDOEX 
C=C-A A 


DO=C 
CD1EX 


B=C A 
C=C-A 


> 


D1=C 


A=DATO 
C=DAT1 
DATO=C 


> >» >» 


DATI=A A 


C=B A 
GOTO dep 


GOSUB 
CD1EX 
B=C A 

A=R3 

C=C-A A 

AD1EX 

D1=D1- 16 
AD1EX 
ABEX A 

GOSUB movedm 
D1=D1- 16 
GOSUB mstkdi 
DO=(5) (=FR1)+3 
A=0 A 

=DATO 4 
B=A A 
DO=(2) #AB 
GOSUB ofst 
B=A A 

GOSUB dimstk 
AD1EX 

A=A-B A 
D1=(5) =AVMEMS 
C=DAT1 A 
C=C-A A 

Goc res1 
GOTO memerr 
A=B A 
GOSUB difstk 
D1=D1- 11 
C=DAT1 A 


difstk 


Fin de boucle interne 
Pointe Le min 

Lit val initiale 
Remplace min par val 
Rappel min 

Remplace val par min 
Rappel offset 

Rappel adr de min 
Calcule adr de No de 
min 

Pointe No de min 
Rappel adr de val 
initiale 

Sauve adr de val init. 
Adr de No de val 
initiale 

Pointe No de val 
initiale 

Lit Le No de min 

Lit Le No initiale 


No init. La place de 
min 

No min La place No 
init. 

Rappel adr val 


C[A] à end of dest 
B[A] à end of dest 
ALA] = block length+16 
C[A] end of source 


ALA]=block length 
ALA] à end of dest 


GOSUB 
C= 
R3=C 


D1=D1- 
CD1EX 
D1=C 
RSTK=C 
perm 
C=DATI 
GOSUB 
R1=C 
C=R3 
GOSUB 
A=C 
c=0 
GOSUB 
C=R3 
B=C 
GOSUB 
D1=D1- 
AD1EX 
A=A-B 
CD1EX 
GOSUB 


* D1 pointe à 
* DO à end of 
* -> à end of 


. D1=D1+ 


D1=D1+ 
C=RSTK 
RSTK=C 
CDOEX 
R2=C 
AD1EX 
D1=A 
C=R3 
GOSUB 
B=C 
C=R1 
GOSUB 
D=C 
DO=D0+ 
b1 C=DATO 
?C=D 
GOYES 
DO=D0- 
B=B+1 
CDOEX 
DO=C 
?C>A 
GOYES 
GOTO 


cslces 


R3[10-5] No lLgn; 
R3[A]1=bl 


csrc5 
R1=B...A 


csrc5 
A 

A 
velm 


A 
dimstk 
16 


moveum 


end of dest 
source -> 
dest pour Le prochain move 


16 = DIMSTK [ passe 


element ] 
16 


R2IA] à end of dest 


csrc5 
A ALA]= No Lgn à déplacer 


cslcs 
A 
5 
A 
A 
b2 
16 
A 
A 


bi 
mferr 


RSTK 


6 Ù * *# *# 


C=R1 

DATO=C A 

A=B A 

C=0 A 

GOSUB velm C[A] Q start of source 
A=R3 

B=A A B[AJ= bl lgth 

A=R2 

A=A-B A 


GOSUB moveum 


Maintenant La nouvelle Ligne est à sa place 
L'ancienne est sur La mathstack. 


a descripteur courant 


R1= No triée....No Lgn dest 
R3[9- 


51 = No Lgn courante R3[A]= bl [gth 


C=R3 

B=C A 
GOSUB d'mstk 
D1=D1- 16 
CD1EX 

ADOEX 

GOSUB  movedm 


* Maintenant l'ancienne Lgn occupe La place 
* de La Lgn deplacée. 


nxtst2 





GOSUB dimstk 
D1=D1+ 16 
AD1EX 

C=RSTK 

D1=C 

D1=D1- 16 
CD1EX 

?2C=A A 
GOYES nxtst2 
RSTK=C 

D1=C 

C=R3 

GOSUB csrc5 
C=C+1 A 
GOSUB cslcs5 
R3=C 

GOTO perm 


GOVLNG =NXTSTM 


END 
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ENCORE UN SCAN... DALE ! 


Avec Le programme SCANALEX, paru dans JPC No 
34, je commettais l'une de mes plus belles 
erreurs de programmation. L'algorithme est 
complètement faux. Je préfère encore le dire 
haut et fort que de l'entendre murmurer tout bas 
dans mon dos ! La version précédente ne 
fonctionne correctement que si l'ordre numérique 
des tokens correspond à l'ordre alphabétique des 
intitulés. Ce qui n'est pas toujours le cas. 
Bref, voici LA bonne version, totalement revue. 


Afin de me faire pardonner, j'y ai ajouté des 
raffinements dont vous me saurez gré (mais 
si...). D'abord, si votre Lex possède une ‘speed 
table", cela vous est signalé. S'il intercepte 
un poll, il est possible de désassembler Le code 
concerné par appel direct du désassembleur de 
Michel Martinet. Pour être plus clair, voici ce 
qui se passe Lors de l'examen d'un Lex : 


Nous  prendrons en exemple EDLEX. Tapez CALL 
SCANC'EDLEX"). S'affichent Les numéros des Lex 
contenus (F0/52), suivis du nombre de mots clefs 
contenus dans Le premier (F0-7 mots clefs), puis 
du premier mot : 


1 DELETE [DJ eSD3C8 p50818 d5D876 


Cela signifie que DELETE a pour token 1, est 
une commande ([D]), que Le code d'exécution 
débute en 5D3C8, de parse en 5D818, de 
décompilation en 5D876. Bien sûr, vous trouverez 
des adresses différentes suivant votre 
configuration, ceci n'est qu'un exemple. Vous 
pouvez alors appuyer sur : 


- [E] pour désassembler Le code Exécutable 

- [P] , » " “" de Parse 

- [D] " “ : de Décompilation 
- une autre touche pour passer au mot suivant 

- [ON] pour sortir du programme 


Admettons que vous arriviez ainsi au mot : 
1 FILESZR [CF] e5D322 11 $ 


Cela signifie que ce mot est une fonction 
({F]), dont Le code exécutable débute en 5D322, 
qu'il admet un et un seul paramètre (11), en 
l'occurence une chaîne ($). Voici Les symboles 
que vous pouvez rencontrer et leur signification : 
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$ chaîne de caractères 
($) tableau alphabétique 

# valeur numérique 

(#) tableau numérique 

A alphanumérique : $ ou # 


Par exemple, La fonction MEMD de MMLEX de 
Michel Martinet (toujours lui) admet pour 
paramètre soit une chaîne (ex : MTAPE(2)"), soit 
un nombre (ex : 2). Il en est de même pour 
DEVADDR du module HPIL, et ainsi de suite. Le 
nombre d'arguments est un intervalle mini-maxi. 
Ainsi 23 signifie que La fonction admet au 
minimum 2 arguments, et au maximum 3. 


Je crois avoir dit tout ce qu'il est nécéssaire 
de savoir pour utiliser efficacement ce 


programme, je vous Laisse donc aux mains de 
votre 71. 


Bonnes fêtes ! 


Jean-Pierre BONDU (PPC 33, SIG 4) 





INTEGRALES ET COMPLEXES 


Le module Math pour HP71 permet de calculer des 
approximations d'intégrales avec variables 
réelles. 


Pour ceux qui ne possèdent pas Le module, trois 
auteurs ont fourni des fichiers basic (JPC Nos 
22,- 23 et 24) appliquant Les méthodes de Gauss ” 
et Romberg. 


Mais une lacune existe pour Le champ complexe. 
INTEGRAL (module Math) est inopérant pour Les 
variables complexes, comme DEF FNF d'ailleurs. 


Aussi, voici une solution en basic 3 
l'algorithme est celui de Romberg (voir JPC No 
24). Il n'a pas l'avantage de La rapidité, mais 
la précision étant optionnelle, ceci assure en 
général un meilleur contrôle et Les résultats 
incompatibles avec La précision demandée sont 
signalés. 





Le module Math est nécessaire pour 


de 


nombres complexes. 


les calculs 


Donc, soit à déterminer La valeur de : 


/ aè+ib2 
1=] 
/ aîtibi 


F(Z)dz 


Exemples : 


1) 


F(Z) = SQR(iZ)/(Z+1/2) 
pour z0 = a + ib1 = 1 
et z1=a2+ib2=i 


RUN 
Affichage : Input : 
-> Intégrale complexe 
-> Programmation (O/N) 0 


-> 


<- Ligne 16 : F = f(2) 


16 F = SQR(Z)/(Z+1/2) 


RUN 
-> Intégrale .... 
-> Program.... N 
-> z0=(,) (1,0) 
°>»:21 =, 29 (0,1) 
-> Précision (1 à 8) ? 7 


-> Je calcule... 

-> 1 = ( -0.5857864 , 0.5328400 ) 
Valeur exacte : SQR(2)-2 + i [SQR(2)-LOG(1+SQR(2)] 
= -0.58478643763 + 10.532839975352 


2) soit F(Z) 
Long du cercle : 

X'2 + Y'2 -X=0 
parcouru dans le sens positif 


Z°2 / (2*Z - 1 ) à intégrer le 


Avec la 
les #4 


Ce cercle coupe l'axe des x en 0 et 1. 
précision de 10*(-5) on obtient pour 
intervalles d'intégration : 


(0,0) à (0.5,0.5) -> 
(0.5,-0.5) à (1,0) -> 
(0,1) à (0.5,0.5)  -> 
(0.5,0.5) à (0,0) -> 


( 0.125 , -0.05365 ) 
C 0.375 , 0.44635 ) 

C -0.375 , 0.44635 ) 
( -0.125 , -0.05365 ) 


WU = 4 4 04 
" 


d'où 1 = i 0.7854 
valeur exacte i P1/4 = i 0.785398163398 
delta = 1.8366602 E-6 


3) Si des 


intégrales avec variables réelles 
présentent des problèmes de Lenteur de 
convergence, une tranposition dans Le champ 


complexe peut permettre de résoudre Le problème. 








Exemple tiré du manuel des fonctions mathématiques 
HP-15C : 


/ inf 

I1 = | COS(X)/(X+1/X) dx 
46 1 
/ inf 

12= | SINCX)/CX+1/X) dx 


1 1 
Dans Le champ complexe on a : 
LY+TiINF  iz 


1=11+i12=| e 
11 


/ (CZ + 1/2) dz 


Donc F = EXP((0,1)*2Z)/(Z+1/2) 
Sous cette forme, La convergence est 
qui n'est pas Le cas de 11 et 12 pour 
la méthode de Romberg est 
méthode de Gauss donne des résultats aberrants. 
Avec I, l'intervalle d'intégration peut être 


réduit considérablement. 


rapide, ce 
lesquelles 
interminable et La 


Intervalles 
d'intégration : 
(1,0) à (1,10) -> 1 
> Pr 
(1,0) à (1,5) >41 
(1,0) à (1,6) -> I 
Donc 11 = -0.324 et 


Précision demandée : 10*(-3) 


C -0.324 , 0.382 ) 
cision assurée : 10*(-2) 
C -0.325 , 0,381 ) 
C -0,324 , 0.382 ) 
12 = 0.382 


mn ® Il 


Remarque : ce fichier basic permet de calculer 
des intégrales avec variables réelles il suffit 
d'avoir des bornes sans partie imaginaire (qui 
peut Le plus peut Le moins). 


Exemple soit à intégrer 

1 / X°2 dX de 1 à 4 

F = 1/22 z0 = (1,0) z1 = (4,0) 

Précision : 10*(-4) 

-> 1 = ( 0.7500 , 0.0000 ) 
donc I = 3/4 

IL ne restera plus qu'un LEX pour remplacer 
cela. Un des SiGouilleurs du peloton de tête 
s'en chargera peut-être. En attendant, soyez 
patients, et intégrez réellement ou 


complexement... 


Guy TOUBLANC (P276) 
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SURVOL DES FICHIERS DE DONNEES 


Les quelques 500 pages de Lecture qui 
accompagnent La machine ne sont pas très 
explicites sur Le sujet. Au début (et même 
après, si, si) on perd beaucoup de temps, on se 
décourage, pour comprendre l'usage et Le 
fonctionnement des fichiers de données. Comme 
toutes Les machines de poche ne possèdent pas 
ces facilités, il est valable de Les connaître. 


Tout d'abord quelques définitions : 


- fichier de données type séquentiel. Les 
éléments n'y sont accessibles que Les uns après 
les autres, dans l'ordre. Exemple : pour Lire Le 
25ème enregistrement, il faut d'abord lire les 
24 premiers ; pour écrire au 17ème 
enregistrement, il faut faire Les 16 premières 
écritures. Ce n'est guère souple. 


Quels fichiers 7? Les fichiers TEXT par 
excellence, Les fichiers DATA parfois. Ici il 
faut introduire La notion de pointeur. Le 
pointeur est une variable de référence pour la 
machine, il indique à quel endroit se fera la 
prochaine Llecture/écriture. L'utilisateur n'y a 
pas accès. 


- fichier de données de type relatif. Les 
enregistrements sont accessibles au gré de 
l'utilisateur. Ecrire au 17ème, puis Lire le 
23ème, Lire Le 25ème et décider d'écrire au 
premier. 


Quels fichiers ? Les SDATA et Les DATA aussi. 
Le pointeur est modifiable par l'utilisateur, 
puisqu'on peut Lire et écrire en n'importe quel 
endroit du fichier. 


IL faut savoir qu'un fichier relatif peut être 
traité en séquentiel, puisqu'on gère écritures 
et Lectures. Tous Les types de fichiers de 
donnés du 71B sont de type relatif. C'est 
pourquoi, on peut dire que Les fichiers DATA ou 
TEXT sont aussi des séquentiels. 


C'est vu ? A présent, à quoi servent Les 
fichiers et leurs accès ? Pour la création, je 
vous renvoie au manuel de référence (page 60). 
C'est une partie assez bien expliquée. 
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LES FICHIERS TEXT 


Par exemple, Le support de cet article est un 
fichier TEXT (avant impression, bien sûr). 
Destiné à stocker des chaînes de caractères, on 
peut aussi y ranger des variables numériques, 
des tableaux. 


A savoir : si vous stockez une variable 
numérique, par La suite, vous pouvez lire 
l'enregistrement comme une chaîne alphanumérique 
ou un nombre. Si vous stockez une chaîne, vous 
ne pouvez La relire que sous forme alphanumérique. 


On peut se servir de fichiers TEXT pour ranger 
Le mode d'emploi d'un programme, lequel sera 
affiché à l'exécution : gain de place. Résumer 
toutes Les utilisations possibles, c'est dire 
que Les TEXT sont des fichiers fourre-tout. 


Pour lire, l'ordre est READ #c, n; v 
où c=canal, n=numéro de l'enregistrement et 
v=variable ou une constante. 


Autre possibilité : RESTORE #c,n @ READ #c;v. 
Pour écrire l'ordre est RESTORE#c,n @ PRINT#c;v 
et non pas PRINT#c,n;v, ordre qui entraine 
l'erreur No 63. Regarder Le manuel de référence 
page 250 ; en fait, RESTORE# positionne le 
pointeur, sur un numéro d'enregistrement. 


Lors de La création, il est possible de choisir 
la taille du fichier en octets, mais non pas la 
taille de ses enregistrements ni Le nombre. 


Usage séquentiel : pour écrire RESTORE#cC puis 
faire Les écritures par PRINT#c;v. Pour lire, 
RESTORE#c puis faire Les lectures par READ#c:;v. 


LES FICHIERS DATA 


IL sont plus destinés au stockage d'objets de 
même type. Voila une raison pour laquelle il est 
possible, à la création, de choisir La taille de 
chaque enregistrement. Remarquez que Le fichier 
DATA est propice au stockage pèle-mèle de 
chaînes et de nombres. La différence avec le 
fichier de type TEXT ? La souplesse. Au clavier 
ou en programme, ASSIGN#1 TO TOTO crée le 
fichier TOTO et l'ouvre. Puissant non ? Le seul 
défaut : pas de fonction testant La fin de 
fichier. 





Que fait-on d'un fichier DATA ? Stocker Les 
données nécessaires à La bonne marche du 
programme ; ranger Les 2800 chiffres de SQR(2) 
calculés. Plus astucieux, Le transfert du 
contenu du tableau A$() vers B$() : écrire Le 
contenu de A$() dans un fichier et relire 
l'enregistrement en direction de B$() (A$ et BS$ 
ont même dimension). C'est très rapide. 


A savoir : Les fichiers DATA sont cycliques. 
Vous avez créé TOTO, CREATE DATA TOTO,25. 25 
enregistrements, vous Les avez remplis. Où se 
fera Le 26ème ? Non, non, il n'y aura pas de 
message d'erreur, Le pointeur repasse à zéro. Le 
26ème enregistrement écrasera Le contenu du 
premier. 


Se méfier : Lorsqu'à La création, on donne le 
nombre  d'enregistrements, il est préférable 
d'indiquer La taille de ces derniers. Sinon, par 
défaut, La machine prend La taille maximale (255 
octets). Les fichiers DATA sont parfaits pour La 
constitution de base de données. 


Pour Lire, l'ordre est : READ#c,n;v ou bien 
RESTORE#c,n à READ#c;v. 


Pour écrire, l'ordre est :  PRINT#c,n;v ou 
encore RESTORE#c,n à PRINT#c;v. 


-En usage séquentiel, pour écrire RESTORE#c puis 
faire Les écritures avec PRINT#c;v. Pour lire, 
RESTORE#c puis faire Les lectures avec READ#c:;v. 


LES FICHIERS SDATA 


Grosso modo, c'est un fichier DATA dont on a 
limité La taille des enregistrements à 8 octets. 
IL ne peut servir qu'au stockage de données 
numériques. Le manuel explique l'existence du 
SDATA par le dialogue avec La HP-41 et celle du 
TEXT par le dialogue avec Le HP-75. 


À propos, au clavier essayez CREATE LIF1 TOTO. 


Voila un rapide tour d'horizon du fichier de 
données. Tout connaître dans Les moindres 
détails nécessite de se plonger dans la 
documentation et Les exemples de programmes 
parus ; effectuer des "essais sur Le terrain" 
est tout aussi instructif. 


Xavier Bille 











74 


SEZ 
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Programme "SCANALEX" (Exploration d'un fichier LEX; necessite DESAL) 


+ HTA$,REVS 
20 INPUT “Lex File ";F$ à CALL SCAN(FS) 


ZIZIZSZSZIZZZISSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSEEEEE= 


1030 FOR J=3 TO HTD(XS [1,11 )+2 

1040 IF X$[J,J1='4! THEN S$=S$&'$! 
1050 IF X$[J,J1='6! THEN S$=S$&'($)! 
1060 IF X$S[J,J1='8! THEN S$=S$&'#! 
1070 1F X$[J,J]1='A' THEN S$=S$&'(#)! 
1080 IF X$[J,J]='C' THEN S$=S$&'A! 
1090 NEXT J à FNAS$=S$ 

1100 END DEF 


1110 DIM A,B,I,L,M,N,T,2Z,F5,F6,M1,11,D$,ES,NS,PS$,M1$,T1$ 

1120 F5=FLAG(5,0) à F6=FLAG(6) à A=HTD(ADDRS(F$))+37 à B=A à OFF ERROR 

1130 NS=PEEKS(DTH$(A-21),4) à IF N$#'802E' AND N$#'FF00' THEN DISP MSG$(63) à END 
1140 DELAY 0,0 à DISP à DISP F$;TAB(12);"LEX#: "; 





1150 'CNTLEX': DISP REV$(PEEKS(DTH$(B),2));" ; 
1160 B=B+6 à Z=HTD(REV$(PEEKS(DTH$(B),5))) 
1170 IF Z THEN B=B+Z à GOTO 'CNTLEX' ELSE DISP @ WAIT .5 





1180 'MAINLOOP': DISP à DISP REV$S(PEEK$S(DTH$(A),2));" -: 1 À @ Lex ID 

1190 N$=REVS(PEEK$S(DTH$S(A+2),4)) à N=HTD(N$[1,2]1)-HTD(N$[31) 

1200 IF N$="0000" THEN DISP “ pas de mot clef" @ SFLAG 5 ELSE DISP N+1;"mot(s) clef" @ CFLAG 5 
1210 WAIT .5 à B=A+12 à IF PEEKS(DTH$(A+11),1)='0 THEN B=B+79 Q DISP “Speed Table’ 
1220 DISP “Poll ......... sine 

1230 N$=PEEK$S(DTH$(B+8),5) @ IF N$='00000! THEN DISP 'NO' Q GOTO 1260 : 

1240 ES$=FNCS(REVS(N$S),B+8) Q DISP "en:E$ à K$=KEYWAITS 

1250 IF K$='E! THEN CALL CD(ES$) 

1260 IF FLAG(5) THEN 'NXTLEX' 

1270 T=B+HTD(REV$S(PEEKS$S(DTH$(B),4))) ! T à Text Table 

1280 M=B+13 ! M à Main Table 


SS=SZSSSSSZIZSSIZIZIZIITIITIZITIIZSTISZSZIESEZIZSIZZIZISIZ=SIZZ==Z============S=SSEE= 


1290 'KEYLIST': FOR 1=0 TO N 

1300 M1=M+9*I ! M1 à Main Table du 1ème mot 

1310 M1$=PEEK$S(DTH$(M1),9) ! Main Table du mot 

1320 T1=T+HTD(REV$(M1$11,31)) ! T1 Q Text Table du mot 

1330 T1$=PEEK$S(DTHS(T1-1),19) ! Text Table du mot 

1340 ES$=FNCS(REVS(M1$[4,8]),M1+3) ! Adresse du code executable 
1350 L=HTD(T1$11,11)+1 ! Longueur de l'intitulé 

1360 X$S=STR$SC(HTD(REVS(TIS[L+2,L+3])))8&" MSHTAS(TISL2,L+1]) 
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1370 
1380 
1390 
1400 
1410 


N$=REVS(PEEKS(DTHS(HTD(ES)-17),17)) @ CFLAG 5,6 à LC OFF 
P$=FNCS(NS [1,5] ,HTD(E$)-5) à D$=FNCS(NS (6, 10] ,HTD(E$)-10) 
DISP X$;TAB(13);"0";M1$ (91 ;"]";TAB(17);"e";E$;n n: 

ON POS(!58CDP',M1$[9])+1 GOTO 1430, 'C5!,'CD','CD','CD','CF' 
POKE "2F4430,"Q" à POKE "2F4410,10" à DISP à GOTO 1340 


SZZSZSZZZ=ZZSZ=Z====2=S===SSSSSZISZISISIZIZESE====SSSSSSSSSSEZSZ=E=S=S=E==Z=ZZ 


CF': DISP TAB(26);REV$S(N$[1,21); TAB(31); FNAS(NS$):; 
N$(1,2]= Min Max d'arguments 
DISP à GOTO !Ss! 





ZISSSSSSSSSSSSSSSIZZSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSEEEEEE= 





1S': SCROLL 1 à K$=KEYS$ 

IF K$='P' AND FLAG(5) THEN CALL CD(P$) @ GOTO 1410 
IF K$='D' AND FLAG(6) THEN CALL CD(D$) @ GOTO 1410 
IF K$='E! THEN CALL CD(E$) à GOTO 1410 

IF K$=1#431 THEN 1540 

NEXT 1! 


INXTLEX': A=A+6 à Z=HTD(REVS(PEEKS(DTH$S(A),5))) 

IF Z THEN A=A+Z à GOTO 'MAINLOOP! 

POKE '2F94A!,101 @ I=FLAG(5,F5)+FLAG(6,F6) à POKE ‘2F441:,10! 
END SUB 


SUB CD(AS) 
DISP @ CALL DESAS(AS) à POKE ‘2F441!,'0! @ POKE '2F443!,10! à DISP à END SUB 


HR he he he he he ee ee eh ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee lc de de 


Progamme "INTEG" (Calcul d'integrales complexes par La methode de Romberg) 


1 


— à 


N) = =ù = à 
O ® F KW nm 


DISP “Intégrale complexe!" à INPUT “Programmation (O/N) ":R$ à IF R$="N" THEN 3 
DISP M<- ligne 16 : F=F(Z)" à END 

DESTROY ALL à OPTION BASE O à COMPLEX A,B,F,F1,Z,X,H,T(9,9) à STD 

INPUT 20 = "M," , J";A @ INPUT "21 = MC , )":B 

INPUT "Précision (1 à 8) ? ";D à E=10"(-D) à DISP "Je calcule..." 

N=1 à Z=A à GOSUB 16 à F1=F à Z=B à GOSUB 16 à F1=(F+F1)/2 

T(0,0)=(B-A)*F1 

H=(B-A)/2°N Q Z=A @Q T(0,N)=F1 à FOR 1=1 TO 2°N-1 à Z=Z+H 

GOSUB 16 à T(O,N)=T(O,N)+F @ NEXT I à T(O,N)=T(0,N)*H Q FOR P=1 TO N Q K=N-P 
TCP,K)=CT(P-1,K+1)*4*P-T(P-1,K))3/(4"P-1) à NEXT P 
Z1=MAX(ABS(REPT(T(N,0)-T(N-1,0))),ABSCIMPT(T(N,0)-TCN-1,0)))) 

IF Z1<E THEN 14 ELSE IF N<5 THEN N=N+1 Q GOTO 8 

BEEP Q DISP “Precision <= 1E";1+EXPONENT(Z1) à WAIT 2 

BEEP @ FIX D @ DISP "I = (M;REPT(T(N,0));",";IMPT(T(N,0));")" à STD à END 
F=EXP((0,1)*2)/(Z+1/2) 

RETURN 
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LE COIN DES LHEX 
Comme de coutume, cette rubrique contient la Liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 
Rappelons ce qu'est un fichier Lex : c'est Un programme pour Le HP71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 


Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n'avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


IL suffit de recopier Le petit programme basic MMAKELEX" ci-dessous, de Le Lancer et de 
recopier Les codes du fichier Lex désiré. Quand vous avez fini, Les nouvelles fonctions sont 
accessibles, après avoir éteint et rallumé votre HP71. 

Si l'erreur "Erreur de somme" apparaît, vérifiez La ligne que vous avez introduite. 

Vous trouverez, outre Les Lex de La rubrique "assembleur", Le Lex CHARLEX nécessaire à la 


rédaction de votre article. Voir l'article "Ah ! Vous écrivez I". 


P. David (PC37 SIG1 CHHU616) 


LOWC LOWCS 92028 
VECTLEX  VSUM 92100 
VMULT 92101 
VCOPY 92102 
VSORT 92103 
VADD 92104 
DESAL contient HTA$ et REV$ pour Le programme SCANALEX 
CHARLEX 


10 CALL MLEX à SUB MLEX à SFLAG -1 @ PURGE AH à INPUT "Nb. d'octets: ":N à LC OFF 

20 CREATE DATA AH,1,N-4 @ A=HTD(ADDR$S("AH")) à B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$;A$ à C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 9 GOSUB 80 à AS=ASRCS à A=A+37 à N=N*2+37 à Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=CS[5*FLAG(5)+1] à POKE DTH$S(A),C$ à A=A+16-5*FLAG(5,0) à NEXT X à Q=4 
60 DISP DTH$CX)[31; à INPUT : ,P$[1,MOD(N,16)1;C$ à GOSUB 90 

70 POKE DTH$S(A),C$ @ POKE DTH$(B),A$ @ CFLAG -1 à END 

80 DISP DTHSCX)[31; @ INPUT : ,P$;CS$ 

90 DISP DTH$CX)[31; à INPUT " sm ","---":D$ 

100 M=S à FOR Z=1 TO LEN(C$) à M=NUM(CS[Z])+M+1 à NEXT Z 

110 IF D$=DTH$(MOD(M,4096))[3] THEN GOSUB 130 à S=M à RETURN 

120 DISP "Erreur de somme“ à BEEP à P$=C$ à POP @ ON Q GOTO 30,40,50,60 

130 P$=n------........... “ @ RETURN 
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LOWCLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 


VECTLEX 


000: 
001: 
002: 
003: 
004 : 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
00D: 
00€: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
O1A: 
018: 
01C: 
010: 
O1E: 
O1F: 
020: 
021: 
022: 
023: 
024: 


ID#5C 


0123456789ABCDEF sm 


C4F47534C4548502 383 
802E002291720168 6D8 
89000c5C1C100000 A39 
F710000000000000 D67 
091000F9C4F47534 0E4 
42011FF411136068 459 
F83D80137C213510 7DA 
9AD1D881D63201C1 B72 
1483314A58FC70B1 FO5 
4C03102A6A149CD5 294 
DD071348F064A184 621 
08D78181F 82F 


ID#5C 


0123456789ABCDEF sm 


65543445C4548502 363 
802E002291720168 6B8 
AB800C5468600000 A23 
FB30000002700000 D67 
0A9400FB00C5500D 0EE 
8108750005208F50 463 
0D23091500D76535 7C9 
55D446965D455C44 B56 
55696534F4059566 ECA 
96535F4254576765 23F 
144444861FF96950 5BC 
5c21181351121091 925 
378868113510B393 C93 
4A345650215D9008 FFC 
D499C08D534B18DE 385 
148180B14B18D004 743 
DO8DD55918DE4591 AEF 
8D91FB08D6CC718D EB9 
C35918DEE0B180C5 278 
1818D84A808D5EC2 62B 
O8DFB6CO8FBCÉ315 9EA 
0C14017F164018FB DéC 
F1908F681F01361B OFC 
BB8F2144198978CF 4B6 
74CF70CF729F1537 862 
30A98218AF681684 BEA 
980D089250859208 F57 
1684890A50858F61 2D3 
89869B0D286840E6 668 
8401428B605868B0 9D8 
BAB64CECCE614017 D89 
215D21C271FEF616 123 
41428B622868C08A 4A4 
881Cc140870B81100 813 
8501895AD2031C18 B8E 
D39390118EA4DE14 F2C 
08488FC07417ABE0 2CC 
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1115 octets 


025: 
026: 
027: 
028: 
029: 
O2A: 
028: 
02C: 
02): 
02E: 
02F: 
030: 
031: 
032: 
033: 


050: 
051: 
052: 
053: 
054: 
055: 
056: 
057: 
058: 
059: 
05A: 
058: 
05C: 
050: 
05E: 


417623A92A1E2015 63E 
D21BBA8F21C61577 9E8 
154718F15671088F D62 
234B1DA7B5ED7755 112 
ED61090B6C10118C 4B8 
E400108119E6109D 82E 
A7F3E04D7D21BEA8 BFA 
F22015E21827070D F82 
BC2D57C4016A146C 326 
217A14511878FD14 6A3 
77FFD1088477A0E8 A52 
FCA84186560632F1 DE4 
7F780E200411875C 164 
DDA011520D230B90 4EA 
2F09821131016D00 846 
3096600306DC8D94 BC7 
381788004AF51187 F59 


3801347F9014B203 2E6 


0B90221982B1AF41 668 
5076B10AF48FC69F AE 
O6D00AF48FB99F00 DCB 
420011577AF41517 12F 
1CF155773607DDE4 4E7 
0052E7A3031B25A0 85C 
7F2031A28F8EC207 BF9 
0205817C10313FAE F77 
A8F291507A008D30 2FE 
3501713182845808 662 


: 715071608FB39403 9D0 


13F966E07E0D7E90 D79 
68408D271307F803 OEC 
18272707FEC78703 475 
1927260800603079 7D5 
DF31B26B007DCF31 B87 
A273401717150318 EDA 
274301718FE05308 246 
FDC6303120067720 588 
O7A6E4F006311F77 944 
0059E31929664003 CA2 
8DB2E2080D963080 057 
46030888A447C8C0 3DA 
SAF4795C7FOCO047A 78E 
AD432AFC05734C8F B4A 
C14D08F363C07BEB F03 
046BDF1BBB8F2146 2BB 
134058FE04D07FAB 663 
8D832F01618F871F 9FE 
08FC1D80041F178F DA7 
2151716164000477 OFE 
ABAFC18178F21567 4B9 
050115EFF5EEFF75 870 
BF76DF8FF53C072C C57 
D770D5CE6A9B43EF 02€ 
FOCEFF7D8F7EAF8F 44B 
234C07A9D7FDCSCE 81D 
627B22EFFB4EFF7B CO3 
887FCD17F714B1BB FD2 
B8F2146134161737 340 


O5F: 
060: 
061: 
062: 
063: 
064: 
065: 
066: 
067: 
068: 
069: 
06A: 
06B: 
06c: 
06D: 
OéE : 
06F: 
070: 
071: 
072: 
073: 
074: 
075: 
076: 
077: 
078: 
079: 
07A: 
078: 
07C: 
070 
07E 
07F: 
080: 
081: 
082: 
083 
084: 
085: 
086 
087: 
088: 
089: 
08A: 
088: 
08C: 
08D: 


DESAL 


000: 
001: 
002: 
003: 
004: 
005: 





B1FE95F214710A77 6E0 
0811011A1371CF1C A60 
F1CF1338A6901F10 DF7 
000133100DA17F17 15A 
F15771331027A1D7 4D2 
9SCSEBÉCEAEADFFA 8E5 
2EFF7508794D1BB9 CAC 
8F21468AADD195A1 05A 
4607189146D51CF1 3F0 
331F495F2147E213 76E 
14908DD4490AFB15 BOC 
571741451C4E6D7C E9F 
DSAC766AI4GEGE6F 267 
21081CF133C21081 5DC 
FE95F21471351CF1 97D 
371351108A6606E8 CEA 
0153710210913418 028 
F1321301188BA331 394 
1215672682282105 60E 
8F674D00444D1361 A5C 
34109156710A61CF DD2 
1191341577154711 11C 
21517113136E2134 46A 
13705E2135142147 7D1 
144141D9606F7289 B49 
13705113E21331CF ECA 
133DC7C891CF7E79 289 
1BEA8F2D015A3D81 63D 
9BA7E6BD87C49133 9F7 
E01F495F2147E246 D8A 
062CED477291CA14 125 
771090610B1C4137 490 
13506157777F8109 806 
1187DE8DAD276AA1 BCD 
18D571F81CF133E0 F75 
137750917F17F070 2E8 
613610A13313111B 63A 
70B8D51197998D71 9CC 
641468A36118FE51 D4E 
361348B2AE640911 0D9 
9144D4D2793A113D 466 
8112E072A8118057 7ED 
6781CF1371327588 B69 
756817F133071351 EC9 
CF1378A2B1061351 24B 
1B7E28E67A1810B6 5E9 
52F8D84A80F 878 


ID#E1 


0123456789ABCDEF sm 


44543514C4020202 34B 
802E004291720168 6A2 
233001E10506E200 9F3 
FB30000000000000 D2E 
012100FF0019100F 08F 
A10BD100F5200500 3FA 


407 octets 
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006: 0F03025200FB1444 761 034: F4118FE83B18DC32 A75 026: 0000000000000000 F1E 
007: 2455644210714353 AA9 035: FOF B34 027: 0000000000000000 22E 
008: 4422071445844230 DEF 028: 0201000000010200 544 
009: 7844514424072554 141 CHARLEX ID#E1 624 octets 029: 0000000201020000 859 
O0A: 4442501FF4118F83 4C0 02A: 0001000100000002 B6D 
00B: DB0D60A871451360 851 0123456789ABCDEF sm 028: 0102010000000000 E81 
O0C: 6137C2134135AD2D BD3 02C: 0000000000000000 191 
00D: 681E81ED7C6BF2BF FAB 000: 34841425C4548502 35E 020: 045E755142400101 4DD 
00E: 2A0E109CF4811831 330 001: 802E005291720168 686 02E: 0101010000000000 7F0 
00F: 5A32172201C11495 68F 002: 5E4001E000000000 9FA 02F: 0000000000000000 800 
010: 7E071341CF1198D8 A23 003: FE0000000800001F D54 030: 0000070507000000 E23 
011: 32F08D91FB080CF2 DCF 004: F31BF961400032BF 0E7 031: 00000000083444C4 161 
012: 08F670B15F18FAA2 178 005: 38F14A11DB10AD23 481 032: 44400D7901112D70 4C1 
013: 513314648FC70B14 4F5 006: 07D532BFB8FD7911 834 033: 050D750509700000 808 
014: 4D309A0ABF1A88BF 8BD 007: 11AD754D7A101743 BB7 034: 0D70000000384540 B4E 
015: 4BF4A4ES9CAF4034 C7A 008: 11014D1CB815D0000 F22 035: 4020014E322E3140 EA2 
016: 118F13DB80D23068A 00C 009: 71450375FF864834 29F 036: 084E794142400000 1F2 
017: 63A1585175137062 373 00A:° 5655581008355654 5F6 037: 00000000002E4559 530 
018: 2769FD68F1C81158 714 00B: 5810002455565870 943 038: 3200000000000000 845 
019: 11C613324AC280FF AA6 00C: 0026555658700836 C95 039: 0000000000000026 B5D 
O1A: 8F84171071355901 E08 000: 5556581008364545 FEB 03A: 5556587008365556 EBC 
018: C915991098508F06 187 00E: 4A30000449724000 33E 03B: 5810083645464830 20D 
01C: 4A18F7B1818FE83B 53E 00F: 0808094A2C180814 6A7 03C: 0832414248700024 54E 
01D: 18DC32F041113713 8AE 010: A464242008355455 A01 03D: 5655587008345655 8AB 
O1E: 5068F83DB0AD1D88 C62 011: 581000054C714000 D47 03E: 5810083446454830 BFA 
01F: 1D31E20A3302E7D7 FF2 012: 0c3142404C700832 OA3 03F: 0C3042414C700024 F4F 
020: CD4C114BDB8FC70B 3C8 013: 41414A70002078A0 3FB 040: 5556587008355654 2AC 
021: 15700914D17153E0 720 014: 2F30000000000000 726 041: 5810083546444830 5FB 
022: 71358DC32F04118F ABB 015: 0000000000000000 A36 042: 0C3142404C700025 951 
023: 83D8013606137135 E20 016: 0000000000000000 D46 043: 5455587008355455 CAB 
024: 1348F064A11CF137 1A7 017: 0000000000000000 056 044: 5810083544454830 FF9 
025: E28837413506D6C6 538 018: 0000000000000000 366 045: 0C3140414C700875 35B 
026: BF2BF230F155717F 8E5 019: 0000000000000000 676 046: 14141870000A4972 6AC 
027: AF2D681ED7A4ECF4 CC8 01A: 0000000000000000 986 047: 40000€3159454E30 AOC 
028: 3214ABCA8F841711 05D 018: 0000000000000000 c96 048: OC7A0F7949400024 D84 
029: 59316117353E8DD4 3E2 01C: 0000000000000000 FA6 049: 5554587000084A71 0E0 
02A: 49007135071348DC 74D 01D: 0000000000000000 286 04A: 40000C523A262D10 441 
028: 32F041178007D207 ABB 01E: 0000000000000000 5cC6 04B: 0424587458400875 798 
02C: 3004248F13DB0AD1 E46 01F: 0000000000000000 8D6 04C: 1415187000094A70 AE8 
020: D881D3102CD48214 1CF 020: 0000000000000000 BE6 04D: 4000083544454830 E2C 
02E: 8966001715FED4E4 570 021: 000000000000080€ F11 O4E: 0C3140414C300074 194 
02F: C4BFOBFOAOC1CF15 938 022: 1A28080008080A2C 278 04F: 5655545000054071 4EB 
030: 17010772EF8DC32F CD9 023: 180008040E340800 5C4 050: 40000 5E4 
031: 025C0C000000F710 034 024: 08001E3018000000 8FE 

032: 0000000000000710 34C 025: 0000000000000000 C0E 

033: 00F725546542C01F 6C4 026: 0000000000000000 F1E 
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PPC PARIS CHAPTER 
Novembre 1986 


ASSOCIATION REGIE PAR LA LOI DE 1901, ENREGISTREE 
A PARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 82/3240 


BULLETIN D’ADHESION 


PROFESSION 
INTERETS 











MATERIEL HP EN VOTRE POSSESSION 








AUTRE MATERIEL MICRO- INFORMATIQUE 








COMMENT AVEZ-VOUS CONNU PPC PARIS CHAPTER ? 
PUBLICITE MAGAZINE 
AUTRE CLUB HP 
RELATIONS, MEMBRES DU CLUB, AUTRES 


QUE RECHERCHEZ-VOUS AU SEIN DU PPC PARIS CHAPTER ? 











Je souhaite adhérer au club PPC PARIS CHAPTER conformément aux statuts de 
l'association. Au mieux de ma connaissance, je déclare avoir Le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes o 
organismes) pour publication dans Le journal de Liaison, sans obligations 
ni responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de ! 
part des dirigeants du PPC PARIS CHAPTER. 


C 


DATE |_|_1/1_1_1/191_1_] 
SIGNATURE, PRECEDEE DE LA MENTION "LU ET APPROUVE" 


LE MONTANT DE LA COTISATION AU PPC PARIS CHAPTER S'ELEVE A 300.00 FF. 
ETUDIANTS: 250.00 FF. (JUSTIFICATIF INDISPENSABLE) 
PAIEMENT EFFECTUE LE |_|_|/|_|_[/19]_[_| A L'ORDRE DE PPC PARIS CHAPTER. 
PAR [ ] CHEQUE BANCAIRE N BANQUE 

[ ] CHEQUE POSTAL 3 VOLETS N 

[ 1 MANDAT LETTRE 
EVENTUELLEMENT : JE M'ABONNE À COMPTER DU |_|_[/|_|_[/191_|_| 
JOINDRE A VOTRE INSCRIPTION UNE PHOTO D'IDENTITE ET UNE ENVELOPPE TIMBREE A 
VOTRE ADRESSE. 


VEUILLEZ ENVOYER TOUTE CORRESPONDANCE A : 
MR PHILIPPE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 PARIS 











Le Journal JPC est le bulletin de 
liaison entre les membres de 
l'association "PPC-PC", régie par la loi 
de 1901. Le Clubest éditeur du JPC, 
et “son: siège "rest AU //250, 1 rue 
Jean-Jacques Rousseau, 75001 Paris. 


La maquette de ce numéro a été 
préparée et réalisée par Pierre David, 
Janick Taillandier et Philippe Guez, 
grâce à un système comprenant un 
HP71B, deux lecteurs de disquettes 
HP9114A, une imprimante HP2225B, 
et une imprimante LaserJet. 


Directeur de la publication : Philippe 
Guez. 
Numéro ISSN : 0762 - 381X. 





